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ABSTRACT 


Nucleate  pool  boiling  heat  transfer  is  an  integral  part 
of  any  vapor-compression  refrigeration  cycle.  With  a  view  to 
improving  overall  cycle  efficiency,  the  heat  transfer 
performance  in  the  evaporator  can  be  improved  by  using 
enhanced  boiling  surfaces.  This  thesis  looks  at  the  pool 
boiling  characteristics  of  R-114  (presently  used  in  large 
shipboard  AC  systems)  from  10  enhanced  single  copper  tubes  and 
compares  performance  with  a  smooth  copper  tube.  Since  small 
amounts  of  oil  escape  into  the  refrigerant  as  it  passes 
through  the  compressor  of  a  refrigeration  system,  tests  have 
also  been  conducted  with  up  to  10%  (by  weight)  of  a  miscible 
oil  to  see  what  effect  this  may  have  on  overall  evaporator 
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I.  INTRODUCTION 


A.  BACKGROUND 

The  United  States  Navy  currently  uses  R-114  in 
approximately  950  centrifugal  chilled-water  air-conditioning 
plants.  Ongoing  efforts  to  reduce  the  cost  and  increase  the 
efficiency  of  these  plants  have  been  directed  towards  the  use 
of  enhanced  heat-transfer  tube  surfaces  and  alternative 
refrigerants.  The  choice  of  alternative  refrigerant  must  be 
"ozone  friendly."  A  possible  "drop  in"  replacement  for  R-114 
has  been  identified:  R-124.  Studies  of  the  boiling  performance 
of  R-124  would  be  complemented  well  by  a  baseline  of  data  on 
R-114. 

B.  ADVANTAGES  OF  USING  R-114 

The  use  of  R-114  in  Naval  applications  has  been  driven  by 
concerns  for  both  cost  and  safety.  R-114  operates  under 
moderate  pressures  and  has  one  of  the  lowest  toxicity  ratings 
among  all  refrigerants.  System  components  are  significantly 
smaller  and  more  lightweight  which  is  desirable  for  shipboard 
use  and  maintenance.  While  R-11  is  widely  used  in  industry, 
its  operating  requirements  make  it  unsuitable  onboard  ship.  R- 
11  operates  under  vacuum  and  has  a  tendency  to  absorb  ambient 
moisture.  This  acidic  combination  of  R-11  and  moisture  attacks 
tubes  and  causes  corrosion.  R-114  is  considerably  stable  to 
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heat  and  may  be  used  with  all  standard  ferrous  and  non-ferrous 
metals  except  zinc,  magnesium  and  aluminum  alloys  containing 
appreciable  amounts  of  zinc  and  magnesium.  The  thermophysical 
properties  of  R-114  are  provided  in  Appendix  A. 

C.  THESIS  OBJECTIVES 

Safety  requirements  for  future  studies  of  R-124 
necessitated  the  disassembly  and  relocation  of  the  single-tube 
apparatus  described  in  this  thesis.  Past  studies  using  the 
apparatus  have  varied  considerably  in  operating  procedure, 
thus  it  became  desirable  to  establish  a  consistent  operating 
procedure  in  the  acquisition  of  all  data  on  R-114.  With  the 
foregoing  discussion  in  mind,  the  objectives  of  this  thesis 
were  to: 

1.  Relocate  and  calibrate  the  single  tube  apparatus. 

2.  Operate  the  apparatus  to  produce  repeatable  data  and 
confirm  earlier  results. 

3.  Obtain  boiling  data  for  R-114  and  R-114/oil  mixtures  on 
ten  tube  surfaces  to  be  used  as  a  database  for  future 
studies  on  enhanced  surfaces  and  alternative  "ozone 
safe"  refrigerants. 
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II.  REVIEW  OF  REFRIGERANT  AND  REFRIGERANT /OIL  POOL 

BOILING  BEHAVIOR 

A.  NUCLEATE  POOL  BOILING  PERFORMANCE  OF  PURE  R-114 

The  heat-transfer  performance  of  pure  R-114  on  a  smooth 
tube  in  the  natural  convection  region  of  its  boiling  curve  can 
be  reasonably  predicted  using  well  known  correlations, 
Churchill  and  Chu  [Ref.  1]  and  more  recently  Churchill  and 
Usagi  [Ref.  2].  A  lack  of  complete  understanding  of  the 
nucleate  boiling  mechanism  makes  it  more  difficult  the  to 
predict  the  performance  in  the  nucleate  boiling  region.  Well 
known  correlations,  such  as  that  by  Rohsenow  [Ref.  1],  and 
more  recently,  Stephan-Adelsalam  [Ref.  3]  are  approximate  and 
should  be  compared  with  experimental  data  whenever  possible. 

Many  pool-boiling  experiments  have  been  carried  out  on 
finned  tubes  (typically  19  to  40  fpi)  in  pure  refrigerants. 
For  various  refrigerants,  tube  material,  fin  density  and 
system  pressure,  typical  enhancements  in  the  heat  transfer 
coefficient  (over  smooth  tubes  values)  of  up  to  3  have  been 
reported,  the  refrigerants  with  better  wetting  characteristics 
giving  the  greater  enhancement.  Interestingly  enough,  the 
boiling  performance  of  finned  tubes  becomes  very  similar  to 
that  of  smooth  tubes,  if  the  heat  flux  is  recalculated  on  the 
basis  of  total  outside  wetted  surface  area  (rather  than  root 
diameter,  which  is  commonly  used) . 
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Re-entrant  cavity  surfaces  differ  from  finned  surfaces  in 
that  they  provide  a  higher  density  of  stable  nucleation  sites 
with  minimum  wall  superheat  (Yilmaz  and  Westwater  [Ref.  4] 
Carnavos  [Ref.  5],  Marto  and  Lepere  [Ref.  6]  and  Wanniarachchi 
et  al.  [Refs.  7,  8]).  Significant  improvements  in  heat 
transfer  over  both  finned  and  smooth  tubes  have  been  shown  for 
re-entrant  cavity  surfaces. 

Boiling  enhancements  were  as  large  as  14.6  and  6.4  for 
High  Flux  and  Turbo-B  tubes,  respectively,  compared  to  smooth 
tube  data. 

Webb  [Ref.  9]  stated  that  the  key  to  the  high  performance 
of  the  re-entrant  surfaces  can  be  attributed  to  three  factors: 
(1)  re-entrant  cavity  within  a  critical  size  range,  (2) 
interconnected  cavities,  and  (3)  nucleation  sites  of  a  re¬ 
entrant  shape.  If  the  cavities  are  interconnected,  adjacent 
cavities  can  activate  each  other.  Re-entrant  cavities  provide 
a  stable  vapor  trap,  which  can  remain  active  at  low  values  of 
superheat . 

During  nucleate  boiling  of  R-114  at  one  atmosphere, 
Wanniarachchi  et  al.  [Refs.  7  and  8]  reported  data  for  four 
enhanced  tubes:  a  porous  coated  High  Flux,  Thermoexcel-E, 
Thermoexcel-HE  and  a  26  fpi  GEWA-T.  Enhancements  of  9.1,  8.2, 
6,8  and  4.4  respectively  were  obtained  at  a  heat  flux  of  30 
kW/m^.  The  enhancement  provided  by  the  High  Flux  tube  reduced 
to  6  at  higher  fluxes  of  about  100  kW/m^,  but  it  still 
outperformed  the  other  three  tubes.  At  heat  fluxes  below  18 
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kW/m^,  both  the  Thermoexcel  tubes  performed  the  best.  However, 
they  noted  that  the  uncertainty  in  the  data  increased  as  both 
superheat  and  heat  flux  decreased. 

Whereas  the  majority  of  pool-boiling  experiments  use 
electrically  heat  tubes,  McManus  et  al .  [Ref.  10]  used  hot 
water  to  heat  both  a  High  Flux  and  Turbo-B  tube  in  a  pool  of 
R-114.  The  range  of  heat  flux  was  very  limited.  However,  at  a 
heat  flux  of  40  Kw/m^,  enhancements  of  14.6  and  6.4 
respectively,  were  obtained  over  smooth  tube  values. 

B.  NUCLEATE  PCXDL  BOILING  PEBEOKMANCE  OF 

REFRIGERANT-OIL  MIXTURES 

Most  refrigeration  systems  use  hermetically  sealed 
compressors  which  allow  small  quantities  of  oil  to  escape  into 
the  working  fluid.  This  oil  tends  to  collect  in  the  flooded 
evaporator,  giving  up  to  10%  oil  in  some  cases.  The  nucleate 
pool  boiling  mechanism  is  further  complicated  when  a  less 
volatile  component,  such  as  miscible  refrigerant  oil,  is  mixed 
with  the  refrigerant.  Design  and  modelling  rely  heavily  on 
accurate  experimental  data  covering  a  wide  range  of  operating 
conditions , 

Compared  with  pure  refrigerants,  there  is  little  data  for 
boiling  of  ref rigerant /oil  mixtures  from  finned  surfaces. 
Chaddock  [Ref.  11]  gives  a  thorough  summary  of  such  mixtures 
through  1975.  Sauer  et  al.  [Ref.  12]  report  data  from  19  fpi 
copper  tube  using  R-11  with  two  different  oils.  For  oil 


5 


concentrations  less  than  3%,  their  results  indicated  no 
difference  in  boiling  heat  transfer  performance  from  that  of 
the  pure  refrigerant.  For  oil  concentrations  greater  than  5%, 
significant  degradation  in  performance  was  shown.  They 
concluded  that  finned  tubes  performed  best  at  low  wall 
superheats  and  that  this  performance  was  not  impaired  by  up  to 
3%  oil  addition. 

Murphy  [Ref.  13]  carried  out  experiments  on  a  26  and  40 
fpi  tube  using  R-114/oil  mixtures.  Similar  to  Sauer  [Ref.  11], 
no  difference  in  performance  was  observed  for  oil 
concentrations  up  to  3%.  Indeed  in  some  cases,  at  a  higher 
heat  flux  of  about  100  kW/m^,  a  3%  oil  concentration  showed  a 
small  increase  in  performance  over  the  pure  refrigerant  case. 
The  mechanism  for  this  improvement  is  not  well  understood,  but 
has  been  found  by  a  number  of  investigators  for  both  flow  and 
pool  boiling.  At  a  10%  oil  concentration,  both  tubes  exhibited 
a  30%  degradation  in  performance  versus  the  pure  refrigerant 
case,  which  agreed  with  Sauer's  findings. 

Wanniarachi  et  al.  [Refs.  7,  8]  reported  the  performance 
of  High  Flux,  Thermoexcel-E,  Thermoexcel-HE  and  GEWA-T  tubes 
in  R-114/oil  mixtures  at  one  atmosphere.  Oil  concentrations  up 
to  10%  (by  weight)  were  studied.  A  marked  increase  in  the  wall 
superheat  values  required  for  the  incipience  of  nucleate 
boiling  was  observed  in  the  presence  of  oil.  Enhancements 
mentioned  previously  for  pure  R-114  were  reduced  at  a  3%  oil 
concentration,  to  7.5,  5.5,  5.5  and  3.8  respectively.  With  10% 
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oil  concentrations,  further  reductions  to  5.5,  3.8,  3,8  and 
2.9  were  observed.  At  the  highest  heat  fluxes  (>  45  kW/m^)  and 
for  oil  concentrations  greater  than  6%,  the  performance  of  the 
High  Flux  tube  degraded  at  a  rate  that  left  the  GEWA-T  tube  as 
the  best  performer. 
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III.  DESCRIPTION  OF  EXPERIMENTAL  APPARATUS 


A.  OVERVIEW  OF  THE  SYSTEM 

Wanniarachchi  et  al.  [Ref.  7],  MuLphy  [Ref.  13]  and 
Karasabun  [Ref.  14]  provide  complete  details  of  the  original 
apparatus  used  in  previous  studies.  Disassembly  of  the 
original  apparatus  to  facilitate  relocation  and  subsequent 
modifications  to  meet  present  site  requirements  justify  a  full 
description  of  the  apparatus.  The  original  R-12  cooling 
subsystem  was  supplanted  by  a  more  efficient  R-502  system.  The 
auxiliary  heaters  and  plastic  shield  were  removed,  however 
power  extensions  were  kept  available  for  their  use  in  future 
studies.  The  Variac  power  supply  to  the  tube  heater  was 
calibrated  and  emplaced  into  a  panel  enclosure.  See  Appendix 
D,  Apparatus  Calibration  for  more  details.  A  more  modern 
Hewlet-Packard  Computer/Data  Acquisition  system  was  installed 
and  the  data  reduction  program  DRP8  was  updated  to  account  for 
variac  calibration  and  program  language  changes. 

An  overall  schematic  representation  of  the  experimental 
apparatus  is  shown  in  Figure  3.1,  and  a  photograph  is  shown  in 
Figure  3.2.  The  apparatus  essentially  consists  of  8 
(components:  1)  a  Pyrex-glass  tee  for  the  pool  boiling  of  the 
R-114  liquid,  "the  evaporator";  (2)  a  Pyrex-glass  tee  for  the 
condensing  of  the  R-114  vapor,  "the  condenser";  (3)  a  P-114 
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liquid  reservoir;  (4)  a  refrigerant /oil  subsystem  composed  of 
an  oil  reservoir  and  a  graduated  oil  cylinder;  (5)  a  cooling 
subsystem  composed  of  a  1/2  ton  R-502  refrigeration  plant,  2 
positive  displacement  pumps  and  a  30  gallon  water/ethylene 
glycol  sump;  (6)  a  vacuum  pump;  (7)  a  data  acquisition  and 
instrumentation  system;  (8)  an  aluminum/Plexi-glass  framework 
within  which  components  (1)  through  (4)  were  housed. 

The  apparatus  was  operated  as  follows:  liquid  R-114  was 
boiled  in  the  evaporator  (1),  passed  as  vapor  through  the 
aluminum  L-shaped  connection  and  condensed  in  the  condenser 
(2) .  R-114  condensate  was  returned  by  gravity  via  the 
distribution  tube  to  the  condenser.  The  R-502  refrigeration 
plant  maintained  the  water/ethylene  glycol  mixture  in  the  sump 
between  -12  and  -18  ®C.  Cooling  of  the  sump  was  accomplished 
by  a  countercurrent  flow  heat  exchanger  through  which  an  8-gpm 
turbine-type  pump  recirculated  the  water/ethylene  glycol 
mixture.  An  identical  positive  displacement  pump  circulated 
the  cooled  mixture  through  the  copper  condensing  coils  in  the 
condenser  via  the  control  valve  VC. 

Prior  to  dismantling  the  evaporator  in  order  to  change  out 
boiling  tubes,  the  licjuid  R-114  was  boiled  out  of  the 
evaporator,  condensed  on  the  coils  of  the  condenser  then 
recovered  to  the  R-114  liquid  reservoir  rather  than  returned 
to  the  evaporator.  Upon  reassembly,  the  evaporator  was 
recharged  with  liquid  R-114  by  gravity  from  the  reservoir.  The 
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level  in  the  reservoir  could  be  topped  off  via  the  condenser 
from  an  external  supply  cylinder  through  valve  VIO. 

Exact  quantities  of  oil  could  be  added  to  the  liquid  R-114 
in  the  lower  glass  tee  from  the  graduated  cylinder  (5)  by 
gravity.  The  graduated  cylinder  was  filled  with  oil  by  gravity 
from  the  oil  reservoir  through  valves  V14  and  V2 .  Refilling 
the  oil  reservoir  was  done  through  valve  V3  located  at  the  top 
of  the  framework.  All  oil  left  over  from  the  recovery  of  the 
liquid  R-114  was  drained  out  of  the  lower  glass  tee  and 
disposed  of. 

The  boiling  tube  was  mounted  horizontally  in  the 
evaporator  and  held  in  place  by  Teflon  bushings  with  0-ring 
inserts.  The  whole  system  was  connected  to  the  vacuum  pump  (6) 
through  valve  V8  in  order  to  remove  noncondensible  gases.  A 
relief  valve  mounted  on  the  aluminum  L  connection  was  set  to 
a  gage  pressure  limit  of  20  psi,  which  is  50%  less  than  the 
manufacturer-recommended  working  pressure  limit  of  the  Pyrex 
glass  tees.  All  connections  were  assembled  with  Swagelok 
fittings  sealed  with  Teflon  ferrules  to  ensure  leak  tightness. 
Copper  tubing  of  3/8  inch  diameter  was  used  for  all  piping, 
except  in  the  oil  section,  where  1/4  inch  copper  tubing  was 
used. 
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B.  BOILING  TEST  SECTION 

1 .  Evaporator 

The  evaporator  is  a  T-shaped  container  made  of  Corning 
Pyrex  glass.  Figure  3.3  shows  a  schematic  of  the  evaporator 
with  dimensions.  Pyrex  glass  has  several  advantages:  it  is 
corrosion-resistent ,  transparent,  has  a  smooth  interior 
surface  (this  minimized  nucleate  boiling  at  the  inner  surface 
of  the  container)  and  is  stronger  with  temperature  and 
pressure  variations  compared  to  ordinary  glass.  The 
manufacturer  recommended  operating  pressure  limit  of  the  Pyrex 
glass  tee  is  30  psi  gage.  Each  end  of  the  evaporator  was 
fitted  with  a  cast-iron  flange  and  a  gasket.  A  detailed  sketch 
of  the  cast-iron  flange  is  shown  in  Figure  3.3  also.  To  reduce 
weight  upon  the  glass  tees,  two  aluminum  flanges,  210  mm  in 
diameter  and  12.7  mm  in  thickness,  were  bolted  to  the  cast- 
iron  flanges.  All  fittings  were  connected  through  the  aluminum 
flanges  to  the  Pyrex-glass  evaporator. 

2 .  Test  Tub* 

A  schematic  drawing  of  the  test  tube  is  shown  in 
Figure  3.4.  The  boiling  tube  was  held  in  place  by  two  Teflon 
bushings,  which  were  attached  to  the  aluminum  flanges  at  both 
ends  of  the  T-shaped  evaporator.  Four  studs  were  used  in  order 
to  attach  the  Teflon  bushing  on  the  aluminum  flange.  The 
Teflon  bushing  and  both  ends  of  the  test  tube  were  sealed  by 


means  of  two  viton  0-rings  that  were  placed  between  the 
aluminum  flange  and  the  Teflon  plug  at  each  end. 

3 .  Boiling  Tiibes 

A  smooth,  hard-copper  tube,  15.9  mm  (5/8  in.)  in  outer 
diameter,  12.7  mm  (1/2  in)  in  inside  diameter  and  431.3  mm  (17 
in.)  in  length,  was  used  to  provide  comparison  data  for  the 
nucleate  pool  boiling  heat-transfer  performance  of  the 
enhanced  tubes  tested.  All  of  the  tubes  were  heated  and 
instrumented  identically.  Dimensions  of  each  tube  are  provided 
in  Table  V  of  Appendix  E,  Sample  Calculations.  Wanniarachchi 
et  al .  [Refs.  8,  9]  and  Murphy  [Ref.  14]  provide  complete 

details  of  the  tube  surfaces. 

The  ten  tubes  tested  were: 

1 .  Smooth 

2.  GEWA-K  26  fpi  (Figure  3.5) 

3.  GEWA-K  40  fpi  (Figure  3.5) 

4.  GEWA-T  19  fpi  (Figure  3.5) 

5.  GEWA-T  26  fpi  (Figure  3.5) 

6.  GEWA-YX  26  fpi  (Figure  3.6) 

7.  High  Flux  (Figure  3.7) 

8.  Thermoexcel-HE  (Figure  3.8) 

9.  Thermoexcel-E  (Figure  3.9) 

10.  Turbo-B  (Figure  3.9) 
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The  heater  was  a  1000-Watt 


240-Volt  stainless-steel 


cartridge,  6.35  itmi  (1/4  in.)  in  outer  diameter  and  203.2  mm  (8 
in)  in  length.  It  was  inserted  into  a  copper  sleeve,  which  was 
1/4  inch  in  inside  diameter,  1/2  inch  in  outer  diameter  and  8 
inches  in  length.  In  order  to  provide  a  uniform  heat  flux,  the 
cartridge  heater  and  the  copper  sleeve  were  soldered  together. 
To  minimize  the  thermal  contact  resistence,  the  copper  sleeve 
was  then  tinned  (the  cartridge  heater  was  used  to  maintain  the 
solder  in  molten  state)  and  inserted  as  a  unit  into  the  middle 
portion  of  the  test  tube.  The  active  boiling  length  of  the 
test  tube  was  therefore  eight  inches  in  the  middle  portion  of 
the  boiling  tube.  In  order  to  compute  the  actual  average  heat 
flux  in  the  heated  portion  of  the  tube,  a  suitable  correction 
was  applied  for  the  heat  lost  by  natural  convection  out  both 
ends.  See  Appendix  E,  Sample  Calculation  for  details. 

To  measure  the  wall  surface  temperature  of  the  boiling 
tube,  8  thermocouples  (Type-T  Teflon  coated  copper-constant  an; 
0.01  inch  in  diameter)  were  inserted  into  eight  grooves 
machined  on  the  outside  of  the  copper  sleeve.  As  shown  in 
Figure  3.10,  these  thermocouples  were  located  at  different 
axial  and  circumferential  locations.  The  exact  locations  of 
the  thermocouples  and  dimensions  of  the  thermocouple  grooves 
are  given  in  Figure  3.10.  All  the  thermocouple  grooves  were 
axially  machined  from  the  location  of  the  thermocouple  hot 
junctions  to  the  nearest  end  of  the  copper  sleeve. 
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C.  CONDENSER  SECTION 


The  condenser  was  also  a  T-shaped  container  made  of 
Corning  Pyrex  glass.  It  was  identical  to  the  evaporator.  The 
position  of  the  condenser  can  be  seen  in  Figure  3.1.  R-114  was 
condensed  on  a  helical  copper  coil,  which  was  inserted  in  the 
Pyrex-glass  condenser.  Copper  tubing  (3/8  inch  outer  diameter) 
was  fabricated  into  a  three  inch  diameter  coil.  The  active 
condensation  length  was  estimated  to  be  15  ft. 

The  top  portion  of  the  condenser  was  connected  to  a 
portable,  mechanical  vacuum  pump  to  remove  noncondensible 
gases  from  the  apparatus.  The  bottom  of  the  condenser  was 
connected  to  the  evaporator  via  valve  V5  in  order  to  return 
the  condensed  R-114  liquid  to  either  the  evaporator  or  the 
reservoir.  The  coolant,  i.e.,  water/ethylene  glycol  mixture, 
entered  from  the  top  portion  of  the  condenser.  The  condenser 
was  placed  vertically  and  connected  to  the  vapor  outlet  of  the 
evaporator  using  a  fabricated,  L-shaped  aluminum  tube,  two 
inches  in  diameter.  A  Bourdon  gage  with  a  range  up  to  a  gage 
pressure  of  150  psi  and  a  relief  valve  which  was  set  to  20  psi 
gage  were  mounted  on  the  L-tube. 

D.  OIL  ADDING  SECTION 

To  Study  the  boiling  performance  of  R-114/oil  mixtures,  a 
cylindrical  aluminum  oil  reservoir,  6  inches  in  diameter  and 
6  inches  in  height,  and  a  graduated  glass  oil  cylinder  were 
installed  above  the  evaporator  as  shown  in  Figure  3.1.  The 
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graduated  cylinder  was  355  mm  in  length  and  had  a  diameter  of 
25.4  mm.  A  resolution  of  0.5  ml  was  achieved  with  the 
graduated  cylinder.  The  oil  reservoir  was  connected  to  the  oil 
cylinder  through  valves  V14  and  V2.  Refilling  the  oil 
reservoir  was  accomplished  through  valve  V3  located  on  top  of 
the  reservoir.  The  addition  of  oil  into  the  evaporator  was 
achieved  through  VI  by  gravity.  The  oil  cylinder  was  refilled 
by  gravity  from  the  oil  reservoir  located  above. 

B .  COOLING  SECTION 

1 .  Watsr-Bthylane  Glycol  Mixtura  Tank 

In  order  to  store  the  water-ethylene  glycol  mixture, 
a  special  tank  was  manufactured.  The  total  volume  of  the  tank 
was  9243  in^  (18.84  in  x  18.84  in  x  26.04  in)  and  it  was  made 
of  0.5  inch  thick  Plexiglas  sheet.  All  sides  of  the  tank  were 
glued  together  with  methylene  chloride  solution.  The  joints 
were  held  together  with  small  screws  for  extra  strength.  The 
low  thermal  conductivity  of  Plexiglas  was  especially  suited  to 
minimize  heat  transfer  (from  room  to  water-ethylene  glycol 
mixture)  through  the  tank  walls.  The  tank  was  placed  on  top  of 
square  wood  platform  on  the  floor  and  all  sides  were  insulated 
with  7/8  in  thick  rubber  sheets.  The  cooling  mixture  contained 
13  gallons  of  ethylene-glycol  and  25  gallons  of  distilled 
water.  The  freezing  point  of  this  mixture  was  about  -25  deg  C. 
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2.  R-502  Rttfrigaration  Plant 

A  1/2  ton  R-502  refrigeration  plant  was  installed  to 
cool  the  water/ethylene  glycol  mixture.  Figure  3.12  shows  a 
schematic  of  the  R-502  refrigeration  plant.  It  consists  of  a 
compact-type,  air-cooled  condenser,  a  compressor,  a  receiver, 
a  filter-drier  unit,  a  pressure  regulator,  a  temperature 
control  switch  and  a  thermostatic  expansion  valve.  The 
evaporator  of  the  R-502  refrigeration  plant  was  constructed 
using  a  3.8  inch  copper  tube  which  was  run  through  a 
countercurrent  heat  exchanger  opposite  the  water-ethylene 
glycol  mixture.  The  temperature  of  the  water/ethylene  glycol 
mixture  was  controlled  by  both  a  thermostatic  expansion  valve 
and  a  temperature  control  switch.  The  R-502  refrigeration 
plant  was  adjusted  to  keep  the  temperature  of  the  cooling 
liquid  at  about  -17  deg  C. 

3.  PuBg>  and  Control  Valva 

An  8  gpm,  115  VAS  Burks  turbine-type,  positive- 
displacement  pump  was  installed  on  the  floor  and  the  1  inch 
diameter  suction  side  of  the  pump  was  directly  connected  to 
the  water /ethylene  glycol  tank.  Cooling  liquid  was  pumped  from 
the  tank  to  the  condenser  through  the  control  valve  VC.  Also, 
a  by-pass  valve  V9  was  placed  before  the  control  valve  VC  on 
the  discharge  line.  The  use  of  the  by-pass  line  served  two 
important  purposes:  (1)  it  avoided  overloading  the  pump  in  the 
event  valve  VC  is  completely  closed,  and  (2)  it  provided 
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proper  mixing  for  the  "warm"  stream  returning  from  the 
condenser.  The  by-pass  valve  required  adjustment  only  at  the 
highest  heat  fluxes  to  'satisfy'  proper  cooling  of  the 
condenser . 

F.  R-114  RESERVOIR 

An  aluminum  cylindrical  reservoir,  9  inches  in  diameter 
and  10  inches  in  height,  was  placed  vertically  between  the 
evaporator  and  condenser  in  order  to  store  R-114  as  a  liquid. 
The  liquid  level  of  the  R-114  could  be  observed  by  means  of  a 
sight  glass  attached  on  the  reservoir.  The  R-114  reservoir  was 
connected  to  the  vapor  line  through  valve  V7  and  to  the  liquid 
line  through  valve  V6.  See  Figure  3.1  for  the  arrangement  of 
the  reservoir. 

6.  CHAMBER 

An  aluminum  frame  (42.13  in  x  20.07  in  x  24.02  in)  was 
constructed  to  locate  all  the  parts  of  the  apparatus,  except 
the  cooling  section.  All  four  vertical  sides  of  the  frame  were 
covered  with  1/2  inch  thick  Plexiglas  sheets  and  both  left  and 
right  sides  were  provided  with  hinges  to  enable  easy  access  to 
the  components  of  the  apparatus.  Aluminum  and  plywood  plates 
were  used  to  cover  the  bottom  and  top  sides  of  the  frame, 
respectively.  The  valve  bodies  of  VI  through  V8  were  placed 
inside  of  the  front  Plexiglass  box.  The  whole  frame  was  placed 
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above  the  water-ethylene  glycol  tank  with  aluminum  supports  so 
that  the  system  was  very  compact. 

One  of  the  main  advantages  of  this  chamber  was  that  the 
temperature  surrounding  the  evaporator  could  be  reduced 
relative  to  the  ambient  temperature.  Also,  in  case  of 
emergency,  the  thick  Plexiglas  chamber  provides  a  safety 
barrier  to  personnel  and  data  acquisition  equipment. 

H.  INSTRDNUITATION 

1.  Powttr  >teasur«m«nt 

A  240  volt  AC  source  was  used  as  the  power  supply,  and 
it  was  adjusted  by  a  variac  in  the  range  of  0-220  volts  and 
0-5  amperes  according  to  the  desired  heat  flux  at  the  surface 
of  the  boiling  tube.  Power  input  to  the  boiling  tube  was 
measured  with  an  AC  current  inductive  sensor  (output  in  volts) 
and  a  voltage  sensor  directly  coupled  to  the  variac  output. 
The  voltage  sensor  was  run  through  a  AC-DC  true  R.M.S. 
converter  which  output  a  proportional  signal  in  volts.  Figure 
3.12  shows  a  schematic  representation  of  the  power-measurement 
setup.  Both  the  AC  current  sensor  and  the  AC-DC  true  R.M.S 
converter  were  connected  to  the  data  acquisition/control  unit. 

2 .  Twqwratur*  Btoasuramant 

Various  temperatures  were  monitored  throughout  the 
system  to  include: 

1.  Boiling  tube  wall  (8  thermocouples  at  various 
longitudinal  and  circumferential  positions) 
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2.  Liquid  temperature  (one  thermocouple) 

3.  Vapor  temperature  (two  thermocouples),  and 

4.  Water/ethylene  glycol  mixture  temperature  (one 

thermocouple) 

The  locations  of  the  wall  thermocouples  in  the  sleeve  of  the 
boiling  tube  are  shown  in  Figure  3.5.  The  liquid  and  vapor 
thermocouples  were  inserted  into  the  three  specially 
manufactured  thermocouple  housings.  Figure  3.14  shows  a 
schematic  of  these  thermocouple  housings.  The  stainless-steel 
portion  minimizes  (owing  to  low  thermal  conductivity)  errors 
resulting  from  the  axial  conduction  of  heat  from  the 
surroundings.  The  copper  tip  of  the  housing  helps  to  minimize 
the  temperature  drop  from  the  area  being  measured  to  the 
thermocouple  location  (owing  to  the  high  thermal  conductivity 
of  copper) . 

All  the  temperature  measurements  were  accomplished  by 
30  gage  copper-constantan  thermocouples.  Each  thermocouple 
measurement  was  read  directly  by  a  Hewlett-Packard  3497A  data 
acquisition  system,  which  was  controlled  by  a  Hewlett-Packard 
9826  computer.  Each  thermocouple  was  scanned  twenty  times  over 
5  seconds  and  the  readings  averaged  to  obtain  a  more  accurate 
measurement . 
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Schematic  of  the  Boiling  Test  Tube 


(a)  Standard  fin  (GEWA-K)  and  GEWA-T  fin 


(b)  GEWA-T  fin 


Figure  3.5 


Schematic  and  Photograph  of  Fins 


24 


mm  10  20  30  40 


(a)  GEWA-YX  tube 


(b)  GEWA-YX  fin 

Figure  3.6  Photographs  of  GEWA-YX  Tube  and  Fin 
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Figure  3.8  Schematic  and  Photograph  of 
Thermoexcel-HE  Surface 


(a)  Thermoexcel-E 


(b)  Turbo-B 


Figure  3.9  Photographs  of  Re-Entrant 


Figure  3.10  Positions  of  the  Thermocouples 
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Figure  3  1?  Schematic  of  the  Power  Measurement 
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Figure  3.13  Sketch  of  a  Thermocouple  Well 


IV.  DATA  ACQUISITION  AND  BXDUCTION 


A.  DATA  ACQUISITION  AND  STORACT 

A  Hewlett-Packard  3852A  automatic  data  acquisition  unit 
was  used  to  read  temperatures  from  the  thermocouples  and  to 
read  current  and  voltage  values  of  the  cartridge  heater  from 
the  AC  current  sensor  and  the  AC-DC  true  RMS  converter.  A 
Hewlett-Packard  9000  Series  computer  was  used  to  control  the 
measurements  done  by  the  3852A,  analyze  the  collected  data  and 
store  it. 

The  iterative  data  collection/reduction  program  DRP8  was 
loaded  and  run.  Information  was  entered  through  the  keyboard 
to  prompt  the  data  acquisition  unit  when  to  take  data.  Channel 
assignments  are  listed  in  Table  I.  The  raw  data  was  processed 
and  transferred  to  a  file  on  the  computer's  hard  drive.  A 
printout  of  the  data  reduction  was  also  provided. 

B.  DATA  REDUCTION 

Following  data  acquisition  for  each  data  point,  results 
were  computed  according  to  the  stepwise  procedure  outlined  in 
the  next  section,  and  then  printed  out  using  a  Hewlett-Packard 
Inkjet  printer.  Graphs  were  plotted  using  commercial  software. 
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C.  STEPWISE  DATA-COLLECTIOM  AMD  SOLUTION  PROCEDURE 


1.  Input  name  of  user-specified  file  to  be  stored  on 
computer  hard  drive. 

2.  Select  tube  type  (all  dimensions  of  the  boiling  test 
tube  are  included) . 

3.  Input  desired  heat  flux  (W/m^)  and  saturation 

temperature  (°C)  of  the  boiling  liquid. 

4.  Set  desired  heat  flux  by  adjusting  VARIAC  rheostat. 

5.  Set  saturation  temperature  by  adjusting  flow  of  coolant 
through  condenser  coils  with  control  valve  VC. 

6.  Once  saturation  temperature  is  achieved,  wait  for 
steady-state  conditions  (at  least  5  minutes)  prior  to 
taking  data  readings. 

7.  Prompt  data  acquisition  unit  to  scan  all  channels 

listed  in  Table  I  (thermocouples,  AC  current  sensor  and 
AC-DC  true  RMS  voltage  converter) .  All  channel  readings 
are  made  in  volts  and  stored  in  user  specified  file. 

8.  Convert  these  voltage  readings  to  corresponding  units 
(temperature  in  °C,  current  in  amperes,  voltage  in 
volts) .  Karasabun  [Ref.  15]  describes  in  detail 
conversion  equation  for  temperature.  See  Appendix  B- 
Data  Acquisition  Apparatus  Calibration  for  details  of 
current  and  voltage  conversion. 

9.  Compute  the  heat-transfer  rate  from  the  cartridge 

heater.  See  Appendix  D-Sample  Calculations. 

10.  Compute  the  average  wall  temperature  of  the  boiling 
tube  and  calculate  the  wall  superheat  of  the  current 
data  set.  See  Appendix  D-Sample  Calculations. 

11.  Compute  the  physical  properties  of  R-114  using  given 
correlations  at  film  temperature.  See  Appendix  D-Sample 
Calculations . 

12.  Compute  the  natural-convection  heat-transfer 

coefficient  of  R-114  from  the  smooth  non-boiling  ends 
of  the  test  tube.  See  Appendix  D-Sample  Calculations. 

13.  Compute  heat  losses  from  the  non-boiling  ends  of  the 
boiling  tube.  See  Appendix  D-Sample  Calculations. 
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14.  Calculate  the  heat  flux  from  tube  to  the  refrigerant. 
See  Appendix  D-Sample  Calculations. 

15.  Calculate  the  heat  transfer  coefficient  of  the  R-114 
from  the  boiling  tube.  See  Appendix  D-Sample 
Calculations . 

16.  Store  the  heat  flux  versus  wall  superheat  values  for 
each  data  set  in  user-specified  file. 

17.  Use  commercial  software.  Harvard  Graphics,  to  plot 
data . 


TABLE  I.  HP  3497A  CHANNEL  ASSIGNMENTS 


Channel 

Assignment 

500-507 

Boiling  tube  wall  temperature 

508-509 

Boiling  liquid  temperature 

510 

Vapor  temperature 

511 

Sump  temperature 

512 

RMS  voltage  Tube  heaters 

513 

Tube  heater  current  sensor 

514 

Auxiliary  heater  current 
sensor 
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V.  EXPBRIMXNTAL  PROCEDURE 


A.  PREPARATION 

1.  Vacuum  test  of  the  J^paratus 

Upon  changing  the  tube  and  reassembling  the  apparatus, 
the  system  was  evacuated  down  to  approximately  25  in.  Hg.  by 
a  portable  mechanical  vacuum  pump  through  valves  VI 1  and  V8 . 
The  apparatus  was  allowed  to  stand  for  30  minutes  under  vacuum 
to  observe  any  possible  leaks.  During  this  period, 
thermocouples  were  connected  to  the  data  acquisition  system, 
the  electrical  integrity  of  the  tube  heater  was  checked  and 
the  tube  heater  connected  to  the  variac  panel.  If  a  leak  was 
detected  (i.e.  an  observed  rise  in  pressure),  a  pressure  test 
was  conducted  to  isolate  the  source.  (See  V.A.2.) 

2.  Pr«8sur«  Test  of  the  J4>paratu8 

In  order  to  detect  sources  of  leaks,  the  apparatus  was 
pressurized  with  air  up  to  15  psi  gage  and  a  soap/water  bubble 
test  was  carried  out  upon  suspect  joints.  All  detected  leaks 
were  successfully  and  systematically  fixed. 

3.  Charging  the  J^pparatus  with  R-114 

Upon  completing  the  pressure  tests  (if  any) ,  the 
evaporator  of  the  apparatus  was  filled  with  R-114  licjuid  up  to 
a  marked  position  (20  mm  above  the  top  of  the  boiling  tube) 
using  the  following  procedure. 
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1.  Valve  V7  was  opened  to  allow  the  pressures  within  the 
reservoir  and  the  evacuated  apparatus  to  equalize.  It 
was  noted  that  the  liquid  R-114  within  the  reservoir 
boiled  since  the  equilibrium  pressure  was  less  than  the 
R-114  vapor  pressure  at  room  temperature. 

2.  Valve  V6  was  opened  to  allow  the  liquid  R-114  to  drain 
into  the  evaporator  by  gravity. 

3.  At  the  designated  evaporator  level,  valves  V6  and  V7 
were  closed  to  isolate  the  reservoir. 


4.  Degassing  and  Daba  Acquisition  Channel  Check. 


1.  With  the  condenser  operating,  the  boiling  tube  was  run 
at  a  high  flux  of  about  100  kw/m^  for  ten  minutes  in 
order  to  de-gas  both  the  tube  surface  and  refrigerant. 
Care  was  taken  not  to  exceed  a  pressure  of  15  psi  gage 
(well  below  manufacturer  recommendation)  within  the 
apparatus . 

2.  Any  noncondensible  gases  present  collected  in  the  top 
of  the  condenser.  These  were  then  removed  using  the 
vacuum  pump  through  valves,  V8  and  VI 1. 

3.  The  program,  SETUPS,  was  run  to  check  output  on  all 
thermocouple  channels  as  well  as  power  output.  If  an 
erroneous  reading  was  detected,  then  appropriate  action 
was  taken.  In  the  case  of  a  faulty  boiling  tube  wall 
thermocouple,  the  faulty  thermocouple  was  tagged  for 
future  exclusion  in  data  acquisition  procedure.  (Each 
thermocouple  had  X  thermocouples  embedded  in  its  tube 
wall  and  the  loss  of  one  made  no  difference  to  the 
average  wall  temperature) . 

4.  The  apparatus  was  shut  down  and  the  boiling  tube 
allowed  to  soak  in  the  refrigerant  overnight.  This 
allowed  for  the  surface  to  become  wetted. 


B.  NORMAL  OPERATION 

The  following  procedure  was  followed  to  obtain  the  heat- 
transfer  coefficient  of  pure  R-114  and  R-114/oil  mixtures  from 
the  boiling  tube  being  tested; 
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1.  The  R-502  refrigeration  unit  was  operated  1-2  hours  in 
advance  in  order  to  reduce  the  temperature  of  the 
water-ethylene  glycol  sump  to  a  minimum  of  -8  °C. 

2.  The  data  acquisition/control  unit,  computer  and  variac 
panel  were  switched  on. 

3.  The  computer  program  Setup8  was  loaded  and  run: 

a.  All  the  data  acquisition  channels  were  rechecked. 

b.  A  power  output  of  approximately  5W  was  input  to 
the  boiling  tube.  This  has  been  measured  to 
produce  a  heat  flux  of  500  to  600  W/m^  in  all  tubes 
tested  which  facilitated  reaching  the  first  data 
point  on  the  increasing  flux  run. 

c.  The  temperature  of  the  refrigerant  was  slowly 
reduced  down  to  2.2  °C  by  circulating  a  small 
amount  of  coolant  through  the  condenser,  regulated 
by  control  valve,  VC.  This  reduction  was  monitored 
to  coincide  with  the  reduction  in  sump 
temperature. 

4.  The  iterative  computer  program  DRP8  was  loaded  and 
run . 

5.  Two  data  runs  were  made:  an  increasing  heat  flux  run 
and  a  decreasing  heat  flux  run  wherein  the  heat  flux 
was  incrementally  increased  or  decreased.  Ten  different 
heat  fluxes  (0.6,  1,  2,  3.5,  6,  10,  20,  35,  60,  and  100 
kW/m^)  were  selected  for  each  increasing  or  decreasing 
heat  flux  data  run. 

6.  The  desired  heat  flux  and  saturation  temperature  were 
input  to  the  program  as  reference  points  for  each  data 
point . 

7.  The  variac  was  adjusted  to  set  the  actual  heat  flux 
which  was  continuously  compared  to  the  desired  heat 
flux  by  the  program  until  they  agreed  within  2  percent. 

8.  The  control  valve  VC  was  adjusted  to  regulate  the  flow 
of  cooling  liquid  through  the  condenser  to  maintain 
nearly  constant  saturation  temperature  at  a  given  heat 
flux.  Desired  versus  actual  saturation  temperatures 
were  monitored  continuously  by  the  program  until  they 
agreed  ±  0.1  °C. 

9.  For  each  data  point,  conditions  in  the  evaporator  were 
allowed  to  stabilize  for  at  least  5  minutes  prior  to 
measuring  the  raw  data.  The  following  raw  data  were 
measured  and  stored  in  a  user  specified  file:  boiling 
tube  wall  thermocouple  readings,  liquid  bulk 
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thermocouple  readings,  vapor  thermocouple  readings, 
sump  thermocouple  readings,  current  sensor  readings, 
and  voltage  sensor  readings. 

10.  Two  data  points  were  taken  at  a  given  heat  flux  and 
saturation  temperature  to  comprise  a  data  set.  The 
following  processed  data  were  recorded  as  a  printout: 
wall  temperatures  of  the  boiling  section,  liquid  bulk 
temperatures,  vapor  temperature,  sump  temperature,  wall 
superheat,  heat  transfer  coefficient  of  the  R-114/R- 
114-oil  mixture  and  the  actual  heat  flux. 

11.  For  each  data  set,  the  above  procedure  beginning  with 
step  5  was  repeated. 

12.  Table  II  provides  a  listing  of  all  data  runs. 


TABLE  II.  LISTING  OF  DATA  RUNS 


Data 

Run  # 

Data  File 

Tube 

Heat 

Flxuc 

Oil 

(%) 

Purpose 

1 

DATA630I5 

HF 

I 

0 

CAL 

2 

DATA630D5 

HF 

D 

0 

CAL 

3 

DATA702I5 

HF 

I 

0 

CAL 

DATA702D5 

HF 

D 

0 

CAL 

5 

DATA0705I5 

HF 

I 

0 

CALX DATA 

6 

DATA0705D5 

HF 

D 

0 

CALXDATA 

7 

DATA0709I4 

SM 

I 

0 

DATA 

8 

DATA0709D4 

SM 

D 

0 

DATA 

9 

DAT0710I6 

GK-40 

I 

0 

DATA 

10 

DAT0710D6 

GK-40 

D 

0 

DATA 

11 

DAT0711I7 

GK-26 

I 

0 

DATA 

12 

DAT0711D7 

GK-26 

D 

0 

DATA  1 

13 

DAT0715I8 

GT-19 

I 

0 

DATA  1 

14 

DAT0715D8 

GT-19 

D 

0 

DATA 

15 

DAT0716I9 

GT-26 

I 

0 

DATA 
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Data  Fila 


Tube 


Heat 

Flux 


Purpose 


Data 
Run  # 


DAT0716D9 

GT-26 

D 

0 

DATA 

DAT0717I11 

T-HE 

I 

0 

DATA\DG 

DAT0717D11 

T-HE 

D 

0 

DATA 

DAT0722I12 

TB 

I 

0 

DATA 

DAT0722D12 

TB 

D 

0 

DATA 

DAT0723I09 

GY-26 

I 

0 

DATA 

DAT0723D09 

GY-26 

D 

0 

DATA 

DAT0724I11 

T-HE 

I 

0 

DATA\DG 

DAT0724D11 

T-HE 

D 

0 

DATA\REP 

DAT0803I4 

SM 

I 

0 

DATA\REP 

DAT0803D4 

SM 

D 

0 

DATA\REP 

DAT0804I4 

SM 

I 

3 

DATA 

DAT0804D4 

SM 

D 

3 

DATA 

DAT0805I4 

SM 

I 

10 

DATA 

DAT0805D4 

SM 

D 

10 

DATA 

DAT0806I7 

GK-26 

I 

0 

DATA\REP 

DAT0806D7 

GK-26 

D 

0 

DATA\REP 

DAT0807I7 

GK-26 

I 

3 

DATA 

DAT0807D7 

GK-26 

D 

3 

DATA 

DAT0808I7 

GK-26 

I 

10 

DATA 

DAT0808D7 

GK-26 

D 

10 

DATA 

DAT0809I6 

GK-40 

I 

0 

DATA\REP 

DAT0809D6 

GK-40 

D 

0 

DATA\REP 

DAT0810I6 

GK-40 

I 

3 

DATA 

DAT0810D6 

GK-40 

D 

3 

DATA 

DAT0812I6 

GK-40 

I 

10 

DATA 

DAT0812D6 

GK-40 

D 

10 

DATA 

DAT0815I8 

GT-19 

I 

0 

DATAXREP 

Data 

Run  # 

Data  Fila 

Tuba 

Haat 

Flux 

Oil 

(%) 

Purposa  1 

44 

DAT0815D8 

GT-19 

D 

0 

DATANREP  I 

45 

DAT0816I8 

GT-29 

I 

3 

DATA  1 

46 

DAT0816D8 

GT-19 

D 

3 

DATA  1 

47 

DAT0820I8 

GT-19 

I 

10 

DATA 

48 

DAT0820D8 

GT-19 

D 

10 

DATA  1 

49 

DAT0821I9 

GT-26 

I 

3 

DATA 

50 

DAT0821D9 

GT-26 

D 

3 

DATA  1 

51 

DAT0822I9 

GT-26 

I 

10 

DATA  1 

52 

DAT0822D9 

GT-26 

D 

10 

DATA 

53 

DAT0823I10 

T-E 

I 

3 

DATA 

54 

DAT0fe23D10 

T-E 

D 

3 

DATA 

55 

DAT0824I10 

T-E 

I 

10 

DATA 

56 

DAT0824D10 

T-E 

D 

10 

DATA 

57 

DAT0825I9 

GY-26 

I 

3 

DATA 

58 

DAT0825D9 

GY-26 

D 

3 

DATA 

59 

DAT0826I9 

GY-26 

I 

10 

DATA 

60 

DAT0826D9 

GY-26 

D 

10 

DATA 

61 

DAT0827I5 

HF 

I 

3 

DATA 

62 

DAT0827D5 

HF 

D 

3 

DATA 

63 

DAT0828I5 

HF 

I 

10 

DATA  1 

64 

DAT0828D5 

HF 

D 

10 

DATA  1 

65 

DAT0829I12 

TB 

I 

3 

DATA  1 

66 

DAT0829D12 

TB 

D 

3 

DATA 

67 

DAT0830I12 

TB 

I 

10 

DATA 

68 

DAT0830D12 

TB 

D 

10 

DATA 

69 

DAT0831I11 

T-HE 

I 

3 

DATA 

70 

DAT0831D11 

T-HE 

D 

3 

DATA 

71 

DAT0901I11 

T-HE 

J _ 

10 

DATA 
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Data 

Run  # 

Data  File 

Tube 

Heat 

Flux 

Oil 

(%) 

Purpose 

72 

DAT0901D11 

T-HE 

D 

10 

DATA 

73 

DAT0906I10 

T-E 

I 

0 

DATA 

74 

DAT0906D10 

T-E 

D 

0 

DATA 

SM  =  Smooth  GK-26  =  GEWA-K  26  fpi  GK-40  =  GEWA-K  40  fpi 

HF  =  High  Flux  GT-19  =  GEWA-T  19  fpi  GT-26  =  GEWA-T  26  fpi 

TB  =  Turbo-B  Gy-26  =  GEWA-YX  26  fpi  T-E  =  Thermoexcel-E 
T-HE  =  Thermoexcel-HE 

I  =  Increasing  Flux  D  =  Decreasing  Flux 

CAL  »  CALIBRATION  DATA  DATA  =  BASELINE  DATA 

REP  =  REPEATABILITY  DATA  DG  =  DEGASSING  DATA 


? 


t 
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VI.  RESULTS  AND  DISCUSSION 

A.  REPRODUCIBILITY 

To  test  the  reproducibility  of  the  experimental  data,  9 
data  runs  were  repeated  on  different  days.  All  data  runs  were 
conducted  at  a  saturation  temperature  of  2.2  °C.  Figure  6.1 
shows  a  comparison  of  two  pairs  of  runs,  13,  14,  and  43,  44 
for  increasing  and  decreasing  heat  flux.  It  can  be  seen  that 
there  is  excellent  agreement  between  both  the  increasing  and 
decreasing  heat  flux  runs. 

B.  COMPARISON  OP  DATA  WITH  PREDICTION 

To  check  the  general  validity  of  the  data  obtained,  four 
well-known  correlations,  two  for  natural  convection  and  two 
for  nucleate  pool  boiling,  were  plotted  and  compared  with  the 
smooth  tube  data  for  pure  R-114.  The  two  natural  convection 
correlations  used  were  Churchill  and  Chu  [Ref.  1]  and  a  more 
recent  update  Churchill  and  Usagi  [Ref.  2] .  The  two  nucleate 
pool  boiling  correlations  used  were;  Rohsenow  [Ref.  1]  and 
Stephan-Abdelsalam  [Ref.  3]  .  One  of  the  first  correlations 
developed,  the  Rohsenow  correlation  is  based  upon  the  physics 
of  pool  boiling  heat  transfer.  It  applies  only  for  clean 
surfaces  and  when  used  to  estimate  heat  flux,  errors  can 
amount  to  ±  100%.  The  Stephan-Abdelsalam  correlation  for 
refrigerants  was  developed  from  application  of  regression 
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analysis  to  a  large  amount  of  existing  data.  Application  to  a 
large  number  of  pure  substances  of  widely  differing  thermal 
properties  is  remarkably  simple.  Figure  6.2  shows  the  plotted 
data  and  correlations.  It  can  be  seen  from  the  plot  that  there 
is  excellent  agreement  for  natural  convection  and  not  bad 
agreement  in  the  nucleate  boiling  region.  The  slightly  worse 
agreement  for  nucleate  boiling  can  be  attributed  to  the  more 
complex  mechanisms  at  work  in  this  region. 

C.  KITBCTS  or  DEGASSING 

Early  experiments  (Runs  1-6)  conducted  with  the  High  Flux 
tube  pointed  out  the  significant  effect  of  degassing  both  the 
tube  surface  and  refrigerant.  It  was  observed  that  tubes  that 
were  not  vigorously  boiled  after  placement  into  the  apparatus 
and  not  allowed  to  settle  overnight,  tended  to  nucleate  at 
very  low  heat  fluxes  the  following  day  when  conducting  an 
increasing  heat  flux  run.  Similar  effects  were  observed  if  the 
apparatus  was  allowed  to  stand  undisturbed  for  several  days. 
The  most  extreme  effects  were  seen  for  the  re-entrant  cavity 
tubes.  Figure  6.3  shows  the  change  in  behavior  (i.e.  for 
gassed  and  degassed)  for  a  Thermoexcel-E  tube  for  an 
increasing  heat  flux  run.  For  the  degassed  case,  an  extreme 
temperature  overshoot  was  observed,  which  indicates  a  large 
number  of  nucleation  sites  were  deactivated.  Once  all 
nucleation  sites  were  activated,  the  performance  of  both  cases 
was  identical.  It  can  be  surmised  that  the  entrapment  of  vapor 
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bubbles  in  surface  cavities  as  well  as  the  outgassing  from  the 
Teflon  0-rings  of  the  rig  over  time,  enhanced  the  nucleation 
on  the  tube  surfaces.  Vigorous  boiling  removed  those  gases 
from  both  surface  and  liquid. 

D.  BOILING  PUtrORlANCB  OF  BNHANCSD  TUBBS  IN  PURE  R-114 

AND  R-114/OIL  MIXTURES 

The  results  of  the  74  data  runs  are  discussed  with 
references  to  the  figures  (Figures  6.1  to  6.80)  that  are 
provided  at  the  end  of  this  chapter.  Performance  of  each  tube 
will  be  presented  and  discussed  as  follows: 

1.  For  pure  R-114 

2.  For  R-114/oil  mixtures  (3%  and  10%  by  weight) 

3.  Comparison  of  pure  R-114  and  R-114/oil  mixtures  for 
increasing  heat  flux  runs. 

4.  Comparison  of  pure  R-114  and  R-114/oil  mixtures  for 
decreasing  heat  flux  runs. 

5.  Comparison  to  similar  tube  types  (i.e.  finned  -  as 
applicable  for  each  R-114/oil  mixture  for  both 
increasing  and  decreasing  heat  flux  runs) 

1.  Boiling  Porfomanc*  of  Smooth  Tub* 

Figures  6.4,  6.5  and  6.6  show  the  heat  transfer 

performance  of  pure  R-114,  R-114/3%  oil  mixture  and  R-114/10% 
oil  mixture  respectively,  boiling  from  a  smooth  copper  tube. 
Figures  6.7  and  6.8  show  the  comparative  performance  for  the 
three  refrigerant /oil  mixtures  on  increasing  and  decreasing 
heat  flux  respectively.  It  can  be  seen  that  in  Figure  6.7  in 
the  natural  convection  region  there  is  slight  degradation  with 
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increases  in  oil.  However,  in  the  nucleate  boiling  region 
there  is  significant  degradation  with  increasing  oil 
concentration.  Wanniarachi  et  al.  [Ref.  6]  reported  similar 
behavior  for  smooth  tubes.  This  behavior  was  attributed  to  two 
competing  effects:  (1)  the  'choking'  of  the  tube  surface  by  an 
oil  rich  layer  which  develops  as  the  more  volatile  refrigerant 
is  boiled  off;  ()  the  diffusion  of  the  miscible  oil  rich  layer 
back  into  the  bulk  fluid.  In  the  natural  convection  region  it 
can  be  surmised  that  the  diffusion  effect  predominates  while 
in  the  nucleate  boiling  region  the  'choking'  effect  eventually 
overwhelms  the  diffusion.  This  degradation  is  seen  again  in 
Figure  6.8.  It  can  be  seen  that  in  Figure  6.8  that  as 
conditions  approach  natural  convection  along  the  decreasing 
heat  flux  curve,  the  three  mixtures  perform  similarly  as 
nucleation  sites  die  out. 

2.  Boiling  Perfornanc*  of  Finnod/Hodifiod  Finnad  Tubas 

Figures  6.9,  6.10  and  6.11  show  the  heat  transfer 
performance  of  pure  R-114,  R-114/3%  oil  mixture  and  R-114/10% 
oil  mixture  respectively,  boiling  from  a  standard  26  fpi  tube, 
(GEWA-K)  .  At  a  heat  flux  of  35  kW/m^,  heat  transfer 
enhancement  compared  to  the  smooth  tube  for  pure  R-114, 
R-114/3%  oil  and  R-114/10%  oil  was  2.4,  2.9  and  3.2 
respectively.  Figures  6.12  and  6.13  show  the  comparative 
performance  of  the  three  refrigerant/oil  mixtures  on 
increasing  heat  flux  and  decreasing  heat  flux  runs 
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respectively.  On  increasing  heat  flux  and  decreasing  heat  flux 
runS/  the  finned  tube  only  shows  a  small  degradation  in  both 
the  natural  convection  and  nucleate  boiling  regions.  The 
smooth  tube  only  shows  small  degradation  in  the  natural 
convection  region.  Also,  at  the  higher  heat  fluxes,  the 
R-114/3%  oil  mixture  shows  a  slightly  better  performance  than 
the  pure  R-114  and  R-114/10%  oil  mixture.  This  phenomenon  was 
observed  for  all  finned  tubes,  however,  the  reasons  for  such 
behavior  are  not  fully  understood;  it  may  be  due  to  bubble 
'scouring'  between  the  fins.  This  small  increase  in 
performance  at  low  oil  concentrations  agrees  with  results 
reported  by  Stephan  and  Mitrovic  [Ref.  15] . 

Figures  6.14,  6.15  and  6.16  show  the  heat  transfer 
performance  of  pure  R-114,  R-114/3%  oil  mixture  and  R-114/10% 
oil  mixture  respectively,  boiling  from  a  GEWA-K  40  fpi  tube. 
Figures  6.17  and  6.18  show  the  comparative  performance  of  the 
three  refrigerant/oil  mixtures  on  increasing  heat  flux  and 
decreasing  heat  flux  respectively.  Similar  behavior  to  the 
GEWA-K  26  fpi  tube  was  observed  including  the  improved 
performance  at  higher  fluxes  at  low  oil  concentrations  (3%) . 

Figures  6.19,  6.21,  and  6.23  show  the  comparative 
performance  of  the  three  R-114 /oil  mixtures  boiling  from  GEWA- 
K  26  and  40  fpi  tubes  on  increasing  heat  flux.  For  all  three 
oil  concentrations,  the  GEWA-K  40  fpi  tube  outperforms  the 
GEWA-K  26  fpi  and  smooth  tubes  consistently  in  the  nucleate 
boiling  region.  At  a  heat  flux  of  35  kW/m*  the  GEWA-K  40  fpi 
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and  the  GEWA-K  26  fpi  had  heat  transfer  enhancements  of  4.1 
and  3.1  respectively  over  the  smooth  tube  for  pure  R-114. 
Similar  enhancements  were  seen  at  R-114/3%  oil  and  R-114/10% 
oil  mixtures.  See  Table  III  at  end  of  this  chapter.  In  the 
natural  convection  region,  the  results  were  mixed.  Neither 
tube  predominated  consistently  for  pure  R-114  and  R-114/oil 
mixtures.  Figures  6.20,  6.22  and  6.24  show  similar  comparisons 
on  decreasing  heat  flux.  It  can  be  seen  that  the  GEWA-K  40  fpi 
performs  best  in  all  three  cases  except  at  very  low  fluxes 
where  results  were  less  certain.  However,  the  calculation  for 
the  heat  flux  did  not  take  into  account  the  actual  increases 
in  surface  area  for  the  finned  tubes  over  the  smooth  tube.  A 
fin  root  diameter  was  used  to  calculate  surface  area.  The 
actual  area  increase  is  of  the  same  magnitude  as  the  heat 
transfer  enhancements  seen,  indicating  that  both  smooth  and 
finned  tubes  give  similar  heat  transfer  performance.  To 
demonstrate  this.  Figure  6.9,  the  GEWA-K  26  fpi  tube  in  pure 
R-114,  is  replotted  in  Figure  6.81  using  the  actual  fin 
surface  area.  The  ratio  of  actual  fin  surface  area  to  root 
diameter  area  was  a  factor  of  4.  Actual  surface  heat  flux  was 
calculated  by  dividing  the  root  diameter  surface  heat  flux  by 
four.  It  can  be  seen  in  Figure  6.81  that  in  the  natural 
convection  region  the  GEWA-K  26  fpi  tube  performs  comparably 
to  the  smooth  tube.  However,  in  the  mixed  boiling  and  nucleate 
boiling  regions  the  GEWA-K  26  fpi  tube  shows  an  enhanced 
performance  over  the  smooth  tube  up  to  three,  which  indicates 
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there  are  other  mechanisms  involved  besides  increased  surface 


area. 

Figures  6.25,  6.26  and  6.27  show  the  heat  transfer 
performance  of  pure  R-114,  R-114/3%  oil  mixture  and  R-114/10% 
oil  mixture  respectively,  boiling  from  a  modified  fin  tube, 
GEWA-T  19  fpi .  At  a  heat  flux  of  35  kW/m^,  the  heat  transfer 
enhancement  compared  to  the  smooth  tube  for  pure  R-114, 
R-114/3%  oil  mixture  and  R-114/10%  oil  mixture  was  3.1,  4.3 
and  5.2  respectively.  Figures  6.28  and  6.29  show  the 
comparative  performance  of  the  three  refrigerant/oil  mixtures 
on  increasing  and  decreasing  heat  fluxes  respectively.  Similar 
to  the  GEWA-K  type  tube,  only  a  slight  degradation  is  observed 
in  both  the  natural  convection  and  nucleate  boiling  regions. 
Again  at  higher  heat  fluxes,  the  R-114/3%  oil  mixture 
performed  best. 

Figures  6.30,  6.31  and  6.32  show  the  heat  transfer 
performance  of  pure  R-114,  R-114/3%  oil  mixture  and  R-114/10% 
oil  mixture  respectively,  boiling  from  a  GEWA-T  26  fpi  tube. 
At  a  heat  flux  of  35  kW/m^,  heat  transfer  enhancement  compared 
to  the  smooth  tube  for  pure  R-114,  R-114/3%  oil  mixture  and 
R-114/10%  oil  mixture  was  3.7,  4.6  and  4.8  respectively. 
Figures  6.33  and  6.34  show  the  comparative  performance  of  the 
three  refrigerant /oil  mixtures  on  increasing  and  decreasing 
oil  mixtures  respectively.  It  can  be  seen  that  at  higher  heat 
fluxes,  the  R-114/3%  oil  mixture  performed  best  and  there  was 
significant  degradation  in  performance  for  the  R-114/10%  oil 


49 


mixture  compared  to  the  smooth  tube.  At  lower  heat  fluxes,  the 
pure  R-114  outperformed  the  refrigerant/oil  mixtures.  It  can 
be  surmised  that  the  'choking'  effect  predominates  for  the 
refrigerant/oil  mixtures. 

Figures  6.35,  6.37  and  6.39  show  the  comparative  heat 
transfer  performance  of  each  refrigerant/oil  mixture  boiling 
from  the  GEWA-T  19  and  26  fpi  tubes  for  increasing  heat 
fluxes.  Figures  6.36,  6.38  and  6.40  show  similar  comparisons 
for  decreasing  heat  fluxes.  It  can  be  seen  that  in  the 
nucleate  boiling  region  at  the  higher  heat  fluxes  that  the 
GEWA-T  26  fpi  tube  performed  best.  At  the  lower  heat  fluxes, 
in  the  natural  convection  region  for  an  increasing  heat  flux 
run  the  tubes  performed  ecpially.  For  a  decreasing  heat  flux 
run,  the  GEWA-T  19  fpi  performed  best.  Recalling  the  channel 
structure  of  the  GEWA-T  tube  suggests  more  complex  phenomena 
than  simple  increase  in  surface  area.  Indeed  Marto  et  al. 
[Ref.  16]  have  found  that  the  gap  width  with  GEWA-T  tubes  has 
a  significant  effect  on  boiling  performance.  Down  to  some 
limiting  value,  decreasing  the  gap  width  generally  increases 
heat  transfer  coefficient.  The  enhancement  can  be  attributed 
to  strong  interaction  between  heat  transfer  and  hydrodynamic 
effects  within  GEWA-T  channels. 

Figures  6.41,  6.42  and  6.43  show  the  heat  transfer 
performance  of  pure  R-114,  R-114/3%  oil  mixture  and  R-114/10% 
oil  mixture  respectively,  boiling  from  another  modified  fin 
tube,  GEWA-YX  26  fpi.  At  a  heat  flux  of  35  kW/m^,  heat 
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transfer  enhancement  compared  to  the  smooth  tube  for  pure 
R-114,  R-114/3%  oil  mixture  and  R-114/10%  oil  mixture  was  3.4, 
4.3  and  4.4  respectively.  Figures  6,44  and  6.45  show 
comparative  performance  for  the  three  refrigerant /oil  mixtures 
on  increasing  and  decreasing  heat  fluxes  respectively.  It  can 
be  seen  that  in  the  natural  convection  region  slight 
degradation  in  performance  occurs.  At  the  higher  fluxes  in 
the  nucleate  boiling  region,  the  R-114/3%  oil  mixture 
performed  best  as  seen  with  other  types  of  finned  tubes. 

Figures  6.4  6,  6.48  and  6.50  show  the  comparative 
performance  for  each  ref rigerant/oil  mixture  boiling  from  the 
GEWA-K,  GEWA-T  and  GEWA-YX  26  fpi  tuoes  for  increasing  heat 
fluxes.  Figures  6.47,  6.49  and  6.51  show  similar  comparisons 
for  decreasing  heat  fluxes.  Both  the  modified  finned  tubes, 
GEWA-T  and  GEWA-YX,  show  marked  increases  in  performance  over 
the  standard  finned  tube,  GEWA-K,  in  the  nucleate  boiling 
region.  Results  were  not  so  clear  however  in  the  natural 
convection  region,  possibly  due  to  variation  in  surface  area. 

3.  Boiling  Porformanco  of  High  Flux  Tube 

Figures  6.52,  6.53  and  6.54  show  the  heat  transfer 
performance  of  pure  R-114,  R-114/3%  oil  mixture  and  R-114/10% 
oil  mixture  respectively,  boiling  from  the  High  Flux  tube.  At 
a  heat  flux  of  35  kW/m^,  heat  transfer  enhancement  compared  to 
the  smooth  tube  for  pure  R-114,  R-114/3%  oil  mixture  and 
R-114/10%  oil  mixture  was  6.4,  6.2  and  3.8.  The  High  Flux  tube 
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displays  a  much  larger  relative  temperature  overshoot  compared 
to  the  smooth  tube  and  its  point  of  incipience  occurs  at  a 
much  lower  heat  flux.  Accuracy  of  the  data  was  greatest  at 
high  heat  flux  and  large  superheat  values  (±  3.8%)  and  most 
uncertain  at  low  heat  flux  and  small  superheat  values 
(±  17.15%).  See  Uncertainty  Analysis-Appendix  E.  It  can  be 
seen  that  at  higher  heat  fluxes  that  the  High  Flux  tube  in  the 
R-114/10  oil  mixture  performed  almost  equally  to  the  smooth 
tube.  At  a  heat  flux  of  100  JcW/m^  the  heat  transfer 
enhancement  compared  to  the  smooth  tube  was  1.1.  Wanniarachchi 
et  al.  [Ref.  7]  reported  similar  results.  The  marked  decrease 
in  boiling  performance  was  attributed  to  the  creation  of  an 
oil-rich  layer  within  the  boiling  pores.  The  superior  boiling 
performance  for  R-114/10%  oil  mixture  compared  to  the  smooth 
tube  is  completely  recovered  when  the  heat  flux  is  decreased. 
It  can  be  seen  that  in  the  natural  convection  region  the 
performance  of  the  High  Flux  tube  is  comparable  at  all  oil 
concentrations  to  the  smooth  tube  which  indicates  there  is  no 
effect  of  either  tube  type  or  oil  concentration  in  this 
region.  Figures  6.55  and  6.56  show  the  comparative  performance 
of  the  three  ref rigerant/oil  mixtures  on  increasing  and 
decreasing  heat  fluxes  respectively.  The  extreme  rate  of 
degradation  of  performance  of  the  High  Flux  surface  at  10%  oil 
concentration  with  increasing  heat  flux  is  clearly  seen  as 
well  as  its  complete  recovery  as  the  heat  flux  is  decreased. 
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4.  Boiling  Performance  of  the  Thermoexcel  Tubes 

Figures  6.57,  6.58  and  6.59  show  the  heat  transfer 
performance  of  pure  R-114,  R-114/3%  oil  mixture  and  R-114/10% 
oil  mixture  respectively,  boiling  from  the  Thermoexcel-E  Tube. 
At  a  heat  flux  of  35  kW/m^,  heat  transfer  enhancement  compared 
to  the  smooth  tube  for  pure  R-114,  R-114/3%  oil  mixture  and 
R-114/10%  oil  mixture  was  5.7,  5.3  and  5.2  respectively. 
Figures  6.60  and  6.61  show  the  comparative  performance  of  the 
three  refrigerant/oil  mixtures  on  increasing  and  decreasing 
heat  fluxes  respectively.  As  seen  with  the  High  Flux  tube,  the 
Thermoexcel-E  tube  performed  equally  to  the  smooth  tube  in  the 
natural  convection  region  for  all  refrigerant/oil  mixtures. 

Figures  6.62,  6.63  and  6.64  show  the  heat  transfer 
performance  of  pure  R-114,  R-114/3%  oil  mixture  and  R-114/10% 
oil  mixture  respectively,  boiling  from  the  Thermoexcel-HE 
tube.  At  a  heat  flux  of  35  kW/m^,  heat  transfer  enhancement 
compared  to  the  smooth  tube  for  pure  R-114,  R-114/3%  oil 
mixture  and  R-114/10%  oil  mixture  was  4.8,  5.1  and  4.8. 
Similar  performance  to  the  Thermoexcel-E  tube  was  observed. 
Figures  6.65  and  6.66  show  the  comparative  performance  of  the 
three  ref rigerant /oil  mixtures  on  increasing  and  decreasing 
heat  flux  respectively.  At  a  higher  heat  flux  of  100  kW/m^  the 
heat  transfer  enhancements  compared  to  the  smooth  tube  for  the 
R-114/3%  oil  mixture  and  R-114/10%  oil  mixture  was  reduced  to 
2 . 2  and  1.9. 
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Figures  6.67,  6.69  and  6.71  show  the  comparative 
performance  of  each  refrigerant/oil  mixture  boiling  from  both 
the  Thermoexcel-E  and  HE  tubes  for  increasing  heat  fluxes. 
Figures  6.68,  6.70  and  6.72  show  similar  comparisons  on 
decreasing  heat  fluxes.  As  discussed  earlier  both  tubes  showed 
improved  performance  over  the  smooth  tube  in  the  nucleate 
boiling  region.  It  can  be  seen  that  the  Thermoexcel-HE  tube 
performed  marginally  better  than  the  Thermoexcel-E  at  high 
heat  fluxes.  In  the  natural-convection  region  both  "ubes 
performed  comparably  to  the  smooth  tube.  Wanniarachchi  et  al 
[Ref.  8]  reported  similar  behavior  for  Thermoexcel-E  and 
Thermoexcel-HE  tubes.  It  can  be  surmised  that  in  the  natural 
convection  region  the  small  re-entrant  cavities  of  both  tubes 
do  not  increase  the  total  boiling  surface  area  like  fins.  The 
Thermoexcel-E  and  HE  tubes  'appear'  smooth  and  would  be 
expected  to  perform  comparably  to  the  smooth  tube  which  was 
indeed  seen. 

5.  Boiling  Perfoxmanco  of  th«  Turbo-B  Tube 

Figures  6.73,  6.74  and  6.75  show  heat  transfer 
performance  of  pure  R-114,  R-114/3%  oil  mixture  and  R-114/10% 
oil  mixture  respectively,  boiling  from  the  Turbo-B  tube.  At  a 
heat  flux  of  35  kW/m^,  heat  transfer  enhancement  compared  to 
the  smooth  tube  for  pure  R-114,  R-114/oil  mixture  and 
R-114/10%  oil  mixture  was  6.2,  6.7  and  5.6  respectively.  As 
seen  with  all  previous  re-entrant  tubes  tested,  comparable 
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performance  with  the  smooth  tube  is  observed  in  the  natural 
convection  region  and  marked  improved  performance  over  the 
smooth  tube  is  observed  in  the  nucleate  boiling  region. 
Figures  6.76  and  6.77  show  the  comparative  performance  of  each 
refrigerant/oil  mixtures  boiling  from  the  Turbo-B  tube  on 
increasing  and  decreasing  heat  fluxes  respectively.  Similar  to 
the  other  re-entrant  cavity  surfaces  tested,  the  R-114/10%  oil 
mixture  had  the  greatest  rate  of  degradation  for  increasing 
heat  flux  in  the  nucleate  boiling  region. 

6.  Ovarall  Parfoxmance  of  Smooth  and  Snhanced  Surfaces 
Figures  6.78,  6.79  and  6.80  show  the  comparative 

performance  of  8  of  the  10  tube  surfaces  tested.  The  other 
two,  Thermoexcel-E  and  GEWA-T  19  fpi,  performed  similarly  to 
the  Thermoexcel-HE  and  GEWA-T  26  fpi  respectively,  and  so  are 
not  included.  Three  distinct  groups  of  tubes  can  be  identified 
based  upon  boiling  heat  transfer  performance  at  all  oil 
concentrations.  These  are;  (1)  smooth,  (2)  finned/modified 
finned  and  (3)  re-entrant  cavity.  Within  the  finned/modified 
finned  group,  it  can  be  seen  that  the  GEWA-T  is  the  best 
performer.  Its  enhanced  performance  was  attributed  to  its 
channel  geometry.  The  High  Flux  tube  in  R-114/10%  oil  mixture 
performed  comparably  to  the  smooth  tube  (heat  transfer 
enhancement  was  1.1)  at  a  heat  flux  of  100  kW/m^.  The  severe 
degradation  in  performance  for  the  High  Flux  tube  can  be 
attributed  to  the  'choking'  of  the  porous  surface.  Table  III 
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shows  numerically  the  enhancement  in  performance  over  the 
smooth  tube  for  all  three  refrigerant/oil  mixtures  boiling 
from  each  of  the  tubes  for  three  heat  fluxes  of  10,  35  and  100 
kW/m^.  It  can  be  seen  at  the  moderate  heat  flux  of  35  kW/m^, 
the  finned/modified  finned  tubes  show  enhanced  performances  of 
2.4  to  5.2  over  the  smooth  tube  while  the  re-entrant  cavity 
tubes  show  enhancements  of  3.8  to  6-7  over  the  smooth  tube. 
The  effect  of  oil  concentration  is  significant  ar  high  heat 
fluxes.  At  a  heat  flux  of  100  kW/m^  for  pure  R-114,  the  finned 
and  re-entrant  cavity  tubes  show  comparable  enhancement 
compared  to  the  smooth  tube.  For  R-114/10%  oil  mixtures  at  a 
heat  flux  of  100  kw/m^,  the  finned  tubes  performed  best. 
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Figure  6.20  Performance  Comparison  For 
Boiling  Pure  R-114  From 
GEWA-K  26/40  f p i  Tubes 
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Figure  6  40  Performance  Lompar ison  For 
Boiling  R- 1 14/ 10%  Oil  Mi xt  ure  From 
GEWA-T  19/26  fpi  Tubes 


100000 


XX- 


100000 


Mixture  From 
T  ube 


0/CW/ 


%  Oi I  Mixture  From 
26  fpi  Tube 


100 


Figure  6  •I'l  Performance  Compar  ison  For 


Figure  6  47  Performance  Comparison  For 
Boiling  Pure  R- 114  From 
GEWA-K/T/YX  26  fpi  Tubes 
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VII.  CONCLUSIONS 


Accurate  and  repeatable  boiling  heat-transfer  data 
using  R-114  and  R-114/oil  mixtures  was  obtained  on  ten 
enhanced  tube  surfaces. 

2.  Three  distinct  groups  of  boiling  tubes  can  be 
identified  by  structure  and  boiling  performance: 
smooth,  finned  and  reentrant  cavity. 

3.  Significant  increase  in  performance  was  observed  for 
reentrant  cavity  surfaces  versus  either  the  finned  or 
smooth  surfaces  within  the  nucleating  regime  at  all 
heat  fluxes  tested. 

4.  Degradation  in  boiling  performance  accompanied 
increases  in  oil  concentration  within  the  nucleating 
regime.  Most  notably,  the  high  flux  surface  performed 
comparably  to  a  smooth  surface  at  the  highest  flux 
tested. 

5.  Within  the  convection  regime  all  tube  surfaces  tested 
performed  equally  well.  No  significant  effect  of  oil 
concentration  can  be  observed  up  to  incipient 
nucleation. 

6.  Distinct  temperature  overshoot  within  the  convection 
regime  occurs  repeatably  in  all  tube  surfaces  tested. 
The  reentrant  cavity  surfaces  exhibit  the  most  extreme 
overshoot  versus  either  the  finned  or  smooth  surfaces. 
Oil  concentration  has  no  significant  effect. 
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VIII.  RECOMMENDATIONS 


1.  Due  to  the  way  a  real  flooded  evaporator  operates,  it 
would  be  preferable  to  heat  the  tube  within  the  single 
tube  apparatus  with  hot  water. 

2 .  As  a  complement  to  present  single  tube  and  bundle  tube 
studies,  the  present  single  tube  apparatus  should  be 
modified  to  accommodate  two  vertically  aligned  boiling 
tubes  in  order  to  study  the  effects  of  multiple  tubes 
and  variation  of  tube  pitch  to  diameter  ratios. 

3.  The  physical  properties  of  the  R-114/oil  mixtures 
tested  should  be  measured  for  comparison  to  the 
predictions  used  in  the  data  reduction  program  and  for 
better  understanding  of  the  mechanisms  driving  the 
degradation  in  heat  transfer  performance. 

4.  Neutrally  buoyant  particles  should  be  placed  in  the 
pool  to  facilitate  study  of  the  circulation  patterns 
within  the  flooded  evaporator  in  more  detail. 

5 .  A  high  speed  camera  should  be  used  to  study  the 
nucleation  process  and  circulation  patterns  in  more 
detail . 
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APPENDIX  A:  THEBMOPHYSICAL  PROPERTIES  OF  R'114 

The  following  thermophysical  properties  of  saturated  R-114 
are  plotted  versus  temperature  “C: 


Dens  i  ty/Ckg/m'"  3^ 


Thermal  Conduct  i  v  i  ty/CW/m’^K;) 
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APPENDIX  B:  DATA  ACQUISITION  APPARATUS  CALIBRATION 
A.  BACKGROUND 

Early  data  runs  revealed  a  disparity  in  calculated  values 
between  previously  reported  theses  and  those  presently 
obtained  for  heat  flux  and  heat-transfer  coefficients.  The 
thermocouple  channels  were  checked  for  validity  of  temperature 
readings  using  other  programs  and  data  acquisition  equipment. 
Their  readings  were  found  to  be  as  accurate  as  possible 
(±  3%) .  Voltage  readings  originating  from  the  RMS  converter 
were  also  checked  out  as  accurate.  The  RMS  converter  converts 
true  voltage  measured  into  a  proportional  voltage  output  (0-10 
volts)  to  the  data  acquisition  unit.  The  proportionality 
constant  to  convert  RMS  voltage  readings.  Vs,  to  real  tube 
heater  voltage,  V,  was  equal  to  25.  This  was  verified  using  a 
standard  voltmeter  across  the  power  leads  of  the  cartridge 
heater  measured  over  several  power  settings.  The  discrepancy 
was  identified  to  be  the  measurement  of  the  current  supplied 
to  the  tube  cartridge  heater  by  the  VARIAC  unit  as  measured  by 
the  inductive  pickup  (Figure  3.13).  The  inductive  measurement 
of  current  (in  proportional  volts)  is  no  longer  run  through 
the  RMS  converter.  Instead,  it  is  run  directly  to  the  Data 
Acquisition  Unit.  A  procedure  to  measure  the  true  current  and 
calculate  the  proportionality  constant  for  converting  the 
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inductive  current.  Is,  to  the  true  current,  I,  was  established 
as  follows: 

B.  EQUIPMENT  USED 

1.  Voltmeter 

2.  2  ohm  resistor 

3.  HP-3852A  Data  Acquisition  Unit 

4.  Computer  -  HP-9300  Series 

5.  Current  Sensor  (Inductive  Pickup) 

6.  Voltage  Sensor/RMS  Converter 

7.  Cartridge  Heater  -  IkW,  220V  rating 

8.  VARIAC  -  power  supply  220V  AC 

9.  SETUPS  program 


C.  CALIBRATION  PROCEDURE 


1.  Ensure  all  power  is  turned  off  to  the  VARIAC. 

2.  Insert  the  standard  2  ohm  resistor  in  series  with  the 
cartridge  heater  as  shown  in  Figure  C.l. 

3.  Connect  leads  of  voltmeter  across  the  2  ohm  resistor  to 
measure  the  drop  in  voltage.  At  any  given  power 
setting,  the  current  through  the  resistor  will  equal 
the  current  through  the  cartridge  heater.  This  assumes 
the  resistances  of  both  heater  and  resistor  are 
constant.  This  was  verified  as  shown  in  Figure  C.2.  The 
total  resistance  of  the  heater/resistor  rapidly  and 
asymptotically  approached  a  constant  value. 

4.  Connect  power  to  the  VARIAC. 

5.  Load  and  run  SETUPS  program  to  provide  the  voltage  and 
current  readings  made  by  the  data  acquisition  unit. 
Note  the  SETUPS  program  used  in  calibration  differed 
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from  that  listed  in  Appendix  G.  A  proportionality 
constant  of  2.0  was  assumed  for  calibration  then 
modified  once  the  true  value  was  calculated. 

6.  Starting  with  che  VARIAC  set  at  zero  volts, 
incrementally  increase  the  voltage  up  to  the  maximum  of 
220V. 

7.  At  each  voltage,  measure  the  drop  in  voltage  across  the 
resistor.  The  current  (amps)  is  calculated: 

I  =  Drop  in  voltage  (volts)  /  2  ohms 

8.  Note  and  compare  the  current  provided  by  the  program. 

9.  At  the  maximum  220V,  incrementally  decrease  voltage 
down  to  0,  taking  comparative  current  readings  as 
before,  in  order  to  detect  any  hysteresis  effect.  None 
was  observed. 

10.  Plot  current  (amps)  vs.  voltage  (volts).  See  Figure 
C.3.  Note  the  linearity  of  both  data  sets.  The  true 
meter  reading  is  some  factor  smaller  than  the  data 
acquisition  readings. 

11.  The  calibration  constant, C,  is  calculated  by: 

C  =  _ (I  Meter  current) _  *  2 

(I  Data  acquisition  current) 

C  =  1.9182 


D.  DISCUSSION 

A  disparity  between  the  previous  reported  theses  values 
and  those  presently  obtained  still  exists.  Calculated  values 
reported  in  previous  theses  for  the  heat  flux  and  the  heat 
transfer  coefficient  are  consistently  higher.  No  previous 
thesis  reports  such  a  calibration  as  carried  out  above  and  it 
is  thought  that  this  is  the  cause  of  the  discrepancy. 
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APPENDIX 


C:  AN  EXAMPLE  OF  REPRESENTATIVE  DATA  RUN 


Month,  doto  ond  tin#  :  S  Jul  }99l  t7:2}:SI 

NOTE:  Progron  n«n«  :  0RP8 
04 tk  nunbor  •  ft 
Now  filo  nono:  OATMTOSXS 
TC  !■  dofoettvo  ot  Jocotion  2 
Tub#  Nunbor :  S 


Data  Sat  Muabar  •  t  Bulli  Oil  X  • 

a.9  2. 

ll54SS3fifi0& 

TC  No: 

1  2  3  a 

S  6 

7 

8 

Tonp  : 

s.n  B.ta  E.ts  S.BI 

S.12  6.96  £.99 

S.n 

Two 

Tliqd  Tiiad2  Tvaor  Paat 

Tounp 

SiA8 

2.3E  2.2S  3.91  -l.fiS  -13.6 

Thotob 

Ntubo  Qdp 

2.770 

1.690E«B2  4.4BSE^B2 

Ooto  fiot  Nunbor  •  2  Bulk  Oil  t  « 

a.a  2. 

1 lS4SSSa033 

TC  No: 

12  3  4 

S  8 

7 

8 

Tonp  : 

4.94  B.ta  S.aa  4.B7 

4.99  4. as 

4. 98 

4.98 

Two 

Tilqd  Tliad2  Tvapr  Paat 

TauM 

4.9S 

2.23  2.18  3.29  -l.7i 

i  -13.7 

Thotob 

Mtutoa  Odb 

2.74B 

I.Sa3C.a2  4.39IC442 

Data  Sat  Nuabar  •  3  Bulk  Oil  X  • 

a.a  2. 

I1B4ES397SE 

TC  No: 

12  3  4 

6  6 

7 

8 

Tong  : 

s.aa  a.aa  s.)9  s.bb 

9.14  6.99 

S.11 

8.15 

Two 

Tliad  Tliad2  Tvaor  Paat 

6.B7 

2.39  2. IB  3.27  -1.69 

-13.6 

Thotob 

HtuOa  Odp 

3.6M 

I.S94Eta2  6.446Eta2 

Ooto  Sot 

Huabar  •  4  Bulk  Oil  X  • 

6.9  2. 

nE4ES397Ba 

TC  No: 

>234 

S  6 

7 

8 

Tonp  : 

t.i2  a.aa  6.23  6.a2 

6.18  6.14 

6. IS 

8.18 

Two 

Tliqd  Tliad2  Tvaor  Paat 

Taubo 

6.12 

2.39  2.19  3.29  -I.S7 

-13.6 

Thotob 

Ntuba  Qdo 

3.B28 

1.6826.92  6.4396.92 

Ooto  Bot 

•luabar  «  E  Bulk  Oil  X  - 

9.9  2.I1E4SE49628 

TC  No: 

1  2  3  4 

9  9 

7 

8 

Tonp  : 

7.13  a.aa  7.37  6.97 

7.24  7. IE 

7.17 

7.25 

Two 

Tliqd  Tllqd3  Tvaor  Paat 

Taubp 

7.»3 

2.24  2.16  2.92  -1.77 

-13.9 

Thotob 

Ntuba  Odo 

4.934 

I.79IE.92  6.9346.92 

Ooto  Sot 

NuPPor  •  6  Bulk  Oil  X  • 

9.9  2.I1E4E94B6EE 

TC  No: 

1  2  3  4 

s  s 

7 

8 

Toop  : 

7.B9  a.aa  7.2s  c.be 

7.21  7.13 

7. IS 

7.29 

Two 

Tliqd  Tliqd2  Tvaor  Paat 

Tounp 

7.11 

2.29  2.12  2.91  -I.BI 

-13. S 

Thotob 

Ntuba  Ode 

4.94S 

l.7a6E.a2  a. 8346.92 

Ooto  Sot 

TtMPaor  •  7  Bulk  011  X  » 

9.9  2.11S4EE4ia23 

TC  No: 

1  2  3  4 

B  6 

7 

8 

Tonp  1 

9. SB  B.BB  9.74  9.36 

t.7l  9.6B 

9.62 

9.75 

Two  Tliod  Tliod2  Tvopr  boot 

Tounp 

9.B7 

2.47  2.22  2.94  -1.61 

-13. S 

Thotob 

Ntuba  Bdp 

7.223 

1.8636.92  1.3466.93 
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Data  Sat  Nunbar  •  d  SuU  Oil  X  -  0.0  2.1l54S54n6S 

TCMc:t  2  3  4  S  E  7  8 

Tanp  :  9.33  O.M  9.S2  9.11  9.49  9.37  9.39  9.58 

T«a  TJiQd  Tliad2  Tvapr  Paat  Tauf%p 

9.33  2.21  2.13  2.82  >1.88  >13.5 

Thatab  Htuba  Qdo 

7.lfiS  }.874E*82  l.343E^83 

Data  Sat  Munbar  •  9  Bulk  Oil  X  •  8.8  2. I 1545541S4E 

TCNc:l  2  3  4  S  G  7  8 

Tanp  :  18.99  8.88  11. S3  11.89  11.58  11.38  11.48  11.48 

Twa  TliQd  Tliqd2  Tvapr  Paat  Tauap 

11. 2G  2.38  2.18  2.fiG  >1.73  >13.5 

Thatab  Htuba  Odp 

9.82G  l.9fi3C«82  1.772E443 

Data  Sat  Munbar  -  18  Bulk  Oil  X  -  8.8  2. 1 1545541589 

TCNoil  2  3  4  5  fi  7  8 

Taap  :  11.88  8.88  11.52  11.89  11.58  11.37  11.48  11.41 

T«a  Tliad  71iad2  Tuapr  Paat  TauMp 

11.28  2.32  2.22  2.87  >1.69  >13.5 

Thatab  Htuba  Odp 
8.988  1.977E^82  1.777E^83 

Data  Sat  Nunbar  •  II  Bulk  Oil  X  •  8.8  2.11545541889 

TCNo:l  2  3  4  5  6  7  8 

Tanp  :  11.45  8.88  12.32  11.93  12.38  12.18  12.21  12.18 

Tua  Tlipd  Tiiod2  Tvapr  Paat  Taunp 

11.99  2.24  2.17  2.67  >1.76  >13.5 

Thatab  Htuba  Odp 
9.783  2.8748^82  2.829E^3 

Data  Sat  Nunbar  •  12  Bulk  Oil  X  -  8.8  2. I 1S4SS41913 

7CNo:t  2  3  4  5  6  7  8 

Tai^  :  11.58  8.88  12.38  11.97  12.35  12.24  12.25  12.14 

Tua  Tliad  Tliad2  Tvapr  Paat  Taunp 

12.84  2.26  2.19  2.69  >1.74  >13.5 

Thatab  Htuba  Odp 
9.814  3.8G5E*82  2.827E^3 

Data  Sat  Nu»*ar  •  13  Bulk  Oil  %  •  8.8  2.11545542298 

TC  Nq:  I  2  3  4  5  6  7  8 

Tanp  2  12.88  8.88  13.11  12.71  13.89  12.98  12.99  12.62 

Tua  Tlipd  TliQd2  Tvapr  Paat  Taunp 

12.74  2.22  2.28  2.96  >1.75  >13.5 

Thatab  Htuba  Odp 
18.527  3.II3E>82  2.223E«83 

Data  Sat  Nunbar  •  14  Bulk  Oil  X  -  8.8  2.11545542315 

TCNo:l  2  3  4  5  6  7  8 

Tanp  I  12.82  8.88  13.85  12.67  13.83  12.92  12.94  12.75 

Tua  Tliad  Tliad2  Tvapr  Paat  Taunp 

12.58  2.28  2.17  2.96  >1.78  >13.5 

Thatab  Htuba  Odp 
18.494  2.118Ei>82  2.214Ei83 

Data  Sat  Nunbar  •  IS  Bulk  011  X  •  8.8  2.11545542511 

TCNp:1  2  3  4  5  6  7  8 

Twv  i  12.55  8.88  13.83  13.53  13.82  13.72  13.73  13.43 

Twa  Tlipd  Tlipd2  Tvapr  Paat  Taunp 

13.42  2.19  2.16  2.92  >1.79  >13.5 

Thatab  Htuba  Odp 

11.239  2.182E>82  2.452S>83 
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Data  Sat  Nunbar  -  IS  Bulii  Otl  t  • 

9.9  2.IIS4SS42 

534 

TC  No: 

1 

2  3  4 

S  E  7 

8 

1*^  : 

12.62 

8.M  13.85  13.61 

13.93  13.75  13. 7S 

13.47 

Two 

TliQd 

Tlipd2  Twopr  Poot 

Taunp 

13.46 

2.28 

2.22  2.91  -1.72  -13. S 

Thotob 

Htubo 

8do 

11.217 

2.IB3E.a:  2.a49E.a3 

Data  Sat  Nuxbar  •  17  Bulk  Oil  X  - 

9.9  2.IIS4S54339E 

TC  No: 

1 

234 

5  6  7 

fi 

To#ip  : 

2.89 

9.99  2.74  2.B9 

2.89  2.69  2.57 

2.68 

Two 

TJiqd 

Tliad2  Tvapr  Paat 

Toune 

2.se 

2.44 

2.19  2.91  -1.S4  -13. S 

TKotob 

Htubo 

Odp 

.279 

I.I2SE.B4  3.a3CE.a3 

Data  Sat  Nunbar  •  iB  Bulk  Oil  X  • 

9.9  2.IIS4S543229 

TC  No: 

1 

234 

5  6  7 

8 

Tooo  : 

2.86 

9.99  2.71  2. SB 

2.87  2.86  2.65 

2.65 

Two 

Tlipd 

Tltad2  Tvapr  Paat 

Toune 

2.68 

2.39 

2. IS  1.98  -1.S9  -13. E 

Thotob 

Htubo 

Qdp 

.288 

i.as2E.a4  3.a29E.a3 

Ooto  fiol 

1  Nuobor 

•  19  Bulk  Oil  X  • 

9.9  2.IIS4554343E 

TC  No: 

1 

3  3  4 

S  S  7 

8 

Toop  : 

3.15 

9.99  2.97  2.92 

2.92  2.79  2.7S 

2.91 

T«*o 

Tlipd 

T1ip42  Tvapr  Paat 

Tauap 

2.V6 

2.41 

3.17  2.99  -I.S7 

-I3.B 

Thotob 

Htubo 

0* 

.472 

9.S7BE.a3  4.S23E.a3 

Ooto  Sot 

Nui^or 

•  29  Bulk  on  X  • 

0.9  2.11545543598 

TC  No: 

I 

234 

5  6  7 

8 

Tonp  : 

3.12 

9.99  3.93  2.99 

2.89  2.75  2.72 

2.88 

Two 

Tlipd 

Tliad2  Tvapr  Paat 

Towns 

2.73 

2.47 

2.19  2.99  -1.82 

-13.5 

Thotob 

Htubo 

Odp 

.364 

i.i44E.a4  4.sa6E.a3 

Goto  Sot 

Nunbor 

•  21  Bulk  Oil  X  . 

9.9  2.11545543579 

TC  No: 

1 

2  3  4 

5  B  7 

8 

Tomp  1 

3.82 

9.99  2.93  2.79 

2.79  2.B4  2.B2 

2.77 

Two 

Tlipd 

TJla92  Tvapr  Paat 

Tauap 

2.62 

2.37 

2.99  i.98  -1.74 

-13.5 

Thotob 

Htubo 

IMP 

.364 

l.l49E.a4  4.B2SC.a3 

Ooto  Sot 

Nuwbor 

•  32  Bulk  on  X  • 

9.0  2.II54E543B29 

TC  No: 

1 

334 

5  6  7 

8 

Tonp  : 

3.46 

9.99  S.39  3. IS 

9.15  2.16  2.91 

3.14 

Two  Tijpp 

Tliad2  Tvapr  Paat 

Townp 

2.89 

2.41 

2. IS  2.7B  -I.B7 

-13. S 

Thotob 

Htubo 

Odp 

.683 

).i7aE.a4  7.as9E.a3 

Ooto  Sot 

Nunbor 

-  23  Bulk  Oil  X  - 

9.9  2.11545543955 

TC  No: 

1 

234 

B  6  7 

• 

loop  : 

3.44 

O.BO  3.19  3.IB 

3.14  2.IS  3.99 

3.13 

Two  Tlipd 

Tliad2  Tvapr  Paat 

Tauap 

2.BB 

3.39 

2.  IS  2.97  -I.S9 

-I3.B 

Thatab 

Mtuba 

Odp 

.S17 

l.isacaa  7.9921.93 
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Oat*  Sat  Nunbar  •  24  Bulli  Oil  X  •  •.*  2. 1 IS4S544709 

TCNe:l  2  3  4  S  S  7  I 

Taw  :  3.95  3.Sfi  3.55  3.5t  3.29  3.2*  3.52 

Twa  Tilod  Tliad2  Tvapr  Paat  Tauw 

3.12  2. 35  2.17  2.71  -1.59  -13.5 

Thatab  Htuba  fldp 

.857  l.2795»84  1.8955*04 

Oala  Sat  Nunbar  -  25  Bulk  Oil  X  •  0.0  2.11545544732 

TCNa:l  2  3  4  5  6  7  8 

Tam  :  3.95  0.00  3.56  3.55  3.49  3.28  3.19  3.52 

Tua  TJiqd  TJiadT  Tvapr  Paat  Tauw 

3.12  2.35  2.15  2.75  -1.70  -|3.S 

Thatab  Htuba  Qdp 

.859  1.2795404  1.0985404 

Oala  Sat  Nunbar  •  26  Bull  Oil  X  •  0.0  2. 1  >545545094 

TCNp:1  2  3  4  5  6  7  8 

Taw  :  4.48  0.00  3.92  3.95  3.85  3.52  3.49  3.92 

Twa  Tliad  Tliad2  Tvapr  Paat  Tauw 

3.35  2.38  2.19  2.07  -1.57  -13.5 

Thatab  Htuba  Odp 
1.073  1.41 15404  1.5145404 

Oat*  Sal  NuWar  •  27  Bulk  Oil  X  •  0.0  2.11545545119 

TCNe:l  2  3  4  5  6  7  8 

Taw  :  4.45  0.00  3.89  3.93  3.83  3.60  3.45  3.89 

Tua  Tlibd  Tliad2  Tvapr  Paat  Tauw 

3.33  2.33  2.15  2.04  -1.72  -I3.5 

Thatab  Ntub*  Odp 
1.092  1.3855404  1.5125404 

Data  Sat  Nunbar  •  28  Bulk  Oil  X  •  0.0  2.11545545450 

TCNo:1  2  3  4  5  6  7  8 

Taw  :  5.12  0.00  4.37  4.43  4.27  4.04  3.86  4.40 

Twa  Tliad  TJi4d2  Tvwr  Paat  Tauw 

3.55  2.35  2.17  2.08  -1.70  -13.5 

Thatab  Htuba  Odp 
1.390  1.4375404  1.9965404 

Oat*  Sat  Nunbar  •  29  Bulk  Oil  X  •  0.0  2.11545545484 

TCNoil  2  3  4  5  5  7  8 

Taw  :  5.12  0.00  4.36  4.42  4.26  4.03  3.84  4.39 

Twa  TJiod  Tliad2  Tvapr  Paat  Tauw 

3.64  2.34  2.15  2.07  -1.71  -13.5 

Thatab  Htuba  Odp 

1.393  1.4335404  1.9955404 

Data  Sat  Nunbar  •  30  Bulk  Oil  X  ■  0.0  2.11546546220 

TCHa:l  2  3  4  5  S  7  6 

Taw  :  6.47  0.00  5.25  5.39  6.11  4.90  4.50  5.33 

Twa  Tliad  Tliad2  Tvapr  Paat  Tauw 

4.23  2.31  2.18  2.10  -1.72  -13.5 

Thatab  Htuba  Odp 
1.909  1.5055404  2.9936404 

Oala  Sal  Nunbar  -  31  Bulb  Oil  X  •  0.0  2.11546546248 

TCNPII  2  3  4  5  6  7  8 

Taw  :  6.45  0.00  6.23  6.37  6.09  4.89  4.57  5.31 

Twa  Tliad  Tliad2  Tvwr  Paat  Tauw 

4.22  2.27  2.15  2.08  -1.75  -13.6 

Thatab  Ntub*  Odp 
7.003  1.4975404  2.9905404 
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Q«t«  S«<  Mu«b«r  «  32  8uik  Oil  X  •  0.9  2. )  )S4S5iSfi59 

XC  He:  I  2  3  *  S  C  7  8 

Taap  ;  8.99  8.89  S.BS  E.92  G.39  S.I7  9.57  9.93 

Tw«  Tliqd  7IiQd2  Tvdpr  Pldt  Ttunp 

5.19  2.33  2.18  2.13  -1.71  -13.4 

Thptab  Htuba  Odp 

2.918  1.559E<'84  4.53SE»84 

Data's*!  Nuabar  •  33  Bulk  Oii  X  •  8.8  2.11945549982 

TC  No:  I  2  3  4  5  9  7  8 

Taiip  ;  8.97  8.88  9.94  9.98  9.37  9.14  5.99  9.92 

Twa  Tlaod  Tlaqd2  Tvapr  Paat  Taunp 

5.15  2.38  2.17  2.18  -1-73  -13.3 

Thatab  Ntuba  fldp 

2.911  1.5599*84  4.5319*84 

Data  Sat  Nuabar  •  34  Bulk  Oil  X  •  8.8  2.11945949951 

TCNo:l  2  3  4  5  9  7  8 

Taap  :  12.95  8.88  8.98  9.39  8.64  8.89  9.99  8.98 

Twa  Tliqd  Tliqd2  Tuapr  Paat  Tauap 

9.93  2.29  2.19  2.15  -1.74  -13.2 

Thatab  Htuba  Odp 

4.389  1.9329*84  7.8289*84 

Data  Sat  Nuabar  •  39  Bulk  Oil  X  -  8.8  2.11949549989 

TCNail  2  3  4  9  9  7  8 

Taap  :  12.59  8.88  9.81  9.42  8.57  8.89  9.99  8.98 

Tua  Tliqd  Tliqd2  Tvapr  Paat  Tauap 

9.99  2.31  2.19  2.18  -1.71  -13.2 

Thatab  Ntuba  Odp 
4.315  1.9279*84  7.8199*84 

Data  Sat  Nuabar  •  39  Bulk  Oil  X  •  8.8  2.11549547297 

TCNatl  2  3  4  9  9  7  8 

Taap  :  19.89  8.88  11.35  11.79  18.57  18.84  8.29  18.43 

Tua  Tllad  Tliad3  Tvapr  Paat  Tauap 

7.84  2.23  2.15  2.14  -1.77  -12.9 

Thatab  Ntuba  Odp 
9.949  1.9949*84  9.5999*84 

Data  Sat  Nuabar  •  37  Bulk  Oil  X  •  8.8  2.11545547281 

TCNo:l  2  3  4  5  5  7  8 

Taap  :  19.11  8.88  11.39  11.81  18.59  18.87  8.28  18.49 

Tua  Tliqd  Tliqd2  Tvapr  Paat  Tauap 

7.87  2.25  2.18  2.17  -1.79  -12.8 

Thatab  Ntuba  Odp 
9.568  1.9925*84  9.5726*84 

NOTE:  37  data  runa  uara  atarad  In  ft  la  DNTM78SI5 

NOTE:  37  X-v  palra  uara  atarad  In  plat  data  film  PL0T8785I5 
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APPENDIX  D:  SAMPLE  CALCULATION 


Data  run  number  9  {saturation  temperature  was  2.22  °C  and 
heat  flux  was  20.14  kw/m^)  was  chosen  for  the  sample 
calculation . 


A.  TEST-SECTION  DIMENSIONS 

Do  =  0.01588  m 
Di  =  0.01270  m 
D1  =  0.01143  m 
D2  =  0.01588  m 
L  =  0.20320  m 
Lu  =  0.07620  m 


B .  MEASURED  PARAMETERS 

V  =  112.08  volts 

I  =  1.94  volts 

T1  =  16.51  *0 

T2  =  15.80  ’C 

T3  =  15.88  *C 

T4  =  15.93  ’C 

T5  not  read  due  to  defective  thermocouple 

T6  =  15.94  ’C 

T7  =  15.63  *C 

T8  =  16.16  ‘C 

Tsat  =  2.22  'C 

kc  =  344.00  (W/m-K) 


C.  OUTER  MALL  TEMPERATURE  OF  THE  BOILING  TUBE 

p  =  it-Do  =  3.1416  '  0.01588  =  0.0499  (m) 

Ac  =  «  (Do^-Di^) /4  =  3.1416  •  [  (0 . 01588)  (0 . 0127)  /4 
Ac  =  7.14E-5  (m^*) 

Qh  =  VI  =  112.08  •  1.94  =  217.44  (W) 

Tavg  =  £  Tn  /n  =  15.97  CC) 

Two  =  Tavg  -  Qh*  [  ln(D2/Dl)  /  (2-n*L-kc)  ] 

Two  =  15.97  -  217.44- 

[In (15. 88/11. 43) /  (2-3.1416- 0.203- 344) ] 
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Two 

e 


15.80  CO 

Two  -  Tsat  =  15.80  -  2.22  =  13.58  *C 


D.  PROPERTIES  OF  R-114  AT  FILM  TEMPERATURE 


Tf 

= 

(Two+Tsat)/2  =  (15.80+2.22) /2  =  9.01 

•c 

4 

= 

exp[-4.4636  +  (1011 . 47/Tf ) ]  •  lE-3 

exp[-4. 4636+ (1011.47/9.01)  ]  •  lE-3 

(N-  s/m^) 

=  4.16E-4 

Tc 

Critical  Temperature  (R)  =  753.95  (R) 

Tf 

- 

9.01  CO  =  507.89  (R) 

j 

= 

1  -  Tf(R)/Tc(R)  =  1  -  507.89/753.95  = 

0.33 

P 

581.77  +  984.15- +  263.02- j  +  : 
17.94- (kg/m®) 

279.99- j®/®  + 

P 

= 

1504.22  (kg/m®) 

V 

= 

Ji/p  =  4.16E-4/1504.22  =  2.77E-7 

k 

= 

7.10E-2  -  (2.61E-4  -  TfCO) 

k 

= 

7.10E-2  -  (2.61E-4  -  9.01)  =  6.86E-2 

(W/m-  K) 

Tf 

= 

9.01  CO  =  282.16  (K) 

Cp 

400  +  (1.65  -  Tf)  +  (1.51E-3  -  Tf®) 
Tf®) 

-  (6.68E-7  - 

Cp 

= 

970.43  (J/kg-K) 

a 

k/p-Cp  =  6. 86E-2/ (1504.22- 970.43)  =  4 

.7E-8  (m®/s) 

P 

= 

-(Ap/AT)/p  =  1.92E-3  (1/K) 

Pr 

v/a  =  5.88 

HEAT- 

FLUX  CALCULATION 

Average  natural-convection  heat  transfer  coefficient  at 
non-boiling  ends: 


h  = 


K- 

Do 


0.60+0.387- 


I  g*  P' 


(Do^)  •  0‘  Tanh  (m*  Lu) 
V  O'  Lu-  m 


1/6 


[l+(0.559/Pr)’^i®]®''^'’ 
m  =  [h- p/ (kc  Ac)  ] 


h  =  235.4  (W/m^-K) 


The  value  for  h  was  computed  iteratively.  A  value  for  h  of  190 
(W/m^- K)  was  assumed  at  start  of  iteration. 

Heat-transfer  rate  through  non-boiling  ends: 

m  =  21.87  (1/m) 

Qf  =  (h*p- kc- Ac)  Tanh(m- Lu)  =  6.79  (W) 
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Heat  flux  through  active  boiling  surface 

Q  =  Qh  -  2-Qf  =  217.44  -  2  •  6.79  =  203.85  (W) 

Ab  =  Ji-Do-L  =  3.1416  •  0.015875  *  0.2032  =  l.OlE-2  (m^) 
q"  =  Q/Ab  =  203. 85/1. 02E-2  =  20,108  (W/m^) 
h  =  q/e  =  20,108/13.59  =  1480  (W/m^-K) 

The  following  are  the  results  obtained  from  the  computer 
by  running  the  data  reduction  program  DRP8  (See  Appendix  H)  . 

q"  =  20,  140  (W/m^) 
e  =  13.64  (°C) 
h  =  1477  (W/m^*K) 
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TABLE  IV.  DIMENSIONS  OF  BOILING  TUBES 


(mm)  (mm)  (nan)  (mm)  (mm)  (mm)  (W) 

nFK 


Smooth 

12.44 

15.88 

12.70 

15.88 

203.2 

76.20 

344 

GEWA-K 

26  fpi 

10.1 

12.7 

11.11 

12.7 

203.2 

76.2 

344 

GEWA-K 

40  fpi 

10.1 

12.7 

11.11 

12.7 

203.2 

76.2 

344 

GEWA-T 

19  fpi 

11.57 

13.8 

11.8 

13.31 

203.2 

76.2 

398 

GEWA-T 

26  fpi 

11.57 

13.8 

11.8 

13.31 

203.2 

76.2 

398 

GEWA-yX 

26  fpi 

11.57 

13.8 

11.8 

13.31 

203.2 

76.2 

398 

Thermoexcel- 

E 

11.57 

13.8 

11.8 

13.31 

203.2 

76.2 

398 

Thermoexcel- 

HE 

11.57 

13.8 

11.8 

13.31 

203.2 

76.2 

398 

Turbo-B 

11.57 

13.8 

11.8 

15.8 

203.2 

76.2 

398 

High  Flux 
(Copper/ 

Nic)cel 

95/5) 

12.95 

15.82 

13.2 

15.82 

203.2 

B 

45 

APPENDIX  E:  UNCERTAINTY  ANALYSES 


Four  data  points  from  two  data  runs  were  chosen  for  the 
uncertainty  analysis:  data  run  number  8  (smooth  tube,  0%  oil, 
100,  000  &  3500  W/m^)  and  data  run  number  74  (Thermoexcel-E,  0% 
oil,  6000  &  100,000  W/m^.  The  dimensions  of  the  boiling  tubes 
can  be  found  in  Appendix  D,  Table  IV.  The  measured  and 
calculated  parameters  used  in  this  analysis  were  obtained  as 
shown  in  Appendix  D  and  are  listed  in  Table  V  of  this 
appendix.  All  uncertainties  are  presented  as  a  percentage  of 
the  calculated  parameter.  What  follows  is  a  sample  calculation 
for  data  run  number  8:  smooth  tube,  0%  oil  at  a  heat  flux  of 
93,130  W/m^  using  the  methods  outlined  by  Kline  and  McClintock 
[Ref.  17]  .  All  other  data  point  uncertainties  were  calculated 
similarly,  the  results  of  which  are  listed  in  Table  V  of  this 
appendix . 

A.  UNCERTAINTY  IN  SOURCE  HEAT-TRANSFER  RATE 

Qh  =  VI  W 

Is  =  2.122  volts  8l  =  ±  0.025  amp 

Vs  =  9.45  volts  6V  =  ±  0.05  volts 

I  =  1 . 9182- Is  =  4.07  amp 

V  =  25-Vs  =  236.26  volts 

where : 

6  =  uncertainty  in  measurement  and  calculation 

5Qh/Qh  =  ((4V/Vs)^+  (dl/Is)^)'^^ 

6Qh/Qh  =  ((0.05/9.45)^+  (0.025/2.122)^)^-^ 

6Qh/Qh  =  1.29  percent 


162 


B.  UNCERTAINTY  IN  SURFACE  AREA 


Ab  =  ll-Do-L 

Do  =  15.88  (mm)  SDo  =  0.1  (mm) 

L  =  203.20  (mm)  5l  =  0.1  (mm) 

fiAb/Ab  =  ((4Do/Do)^  +  (6l/L)2)^''^ 

SAb/Ab  =  ((0.1/15.88)^+  (0.1/203.2)^)^^^ 

5Ab/Ab  =  0.63  percent 


C.  UNCERTAINTY  IN  WALL  SUPERHEAT 
AT  =  Two  -  Tsat 

Tsat  =  2.22  ‘C  AT  =  0.01  “C 

Two  =  Tavg  -  Qh[  (In  (D2/D1)  )  /  (2- 11*  L- kc)  ] 

Tavg  =  (ETn/8)  where  n  =  1  to  8 


Tn  = 

thermocouple 

readings 

T1  = 

23.86  “C 

T2  = 

19.62  "C 

T3  =  20.38  “C 

T4  = 

19.87  -C 

T5  = 

Defective 

thermocouple 

T6  = 

20.18  *C 

T7  = 

20.16  'C 

T8  =  20.20  “C 

Tavg 

=  20.18  -C 

S.D. 

=  (  (I  (Tn  - 

Tavg)^)  /7) 

=  0.19  -C 

where  S.D 

.  =  standard 

deviation 

The  logarithmic  term  in  equation  of  Two  is  very  small 
compared  to  the  standard  deviation,  this  term  can  be  neglected 
for  the  uncertainty  analysis. 


Two  = 

Tavg  =  18.72 

•c 

ATwo  =  S.D 

AT 

17.96  -C 

AAT/AT  = 

((ATwo/AT)^  + 

(- 

■ATsat/AT)^)^''^ 

AAT/AT  = 

(  (0.93/16.5)^ 

+ 

(0.01/16.5)')'^" 

AAT/AT  = 

1.06  percent 

D.  UNCERTAINTY  IN  HEAT  FLUX 

q  =  (Qh-2Qf ) /Ab 

Qh  =  961.58  W  8Qh  =  12.42  W 
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Assuming  the  same  proportion  in  the  uncertainty  for  Qf: 
Qf  =  8.99  W  6Qf  =  0.12  W 

Qh  -  2Qf  =  943.6  W 

Sq/q  =  [ (6Qh/ (Qh-2Qf ) ) ^  +  (2ftQf / (Qh-2Qf ) )  ^) 

(&Ab/Ab) 

Sq/q  =  [(12.42/943.6)^  +  (0.24/943.6)^  +  (0 . 0063) 

5q/q  =  1.46  percent 


E.  UNCERTAINTY  IN  BOILING  HEAT-TRANSFER  COEFFICIENT 

h  =  q/AT 

5h/h  =  [(6q/q)2  +  (AAT/AT) 

6h/h  =  [(0.0146)"+  (0.01.06)"]^"" 

6h/h  =  1.8  percent 
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TABLE  V.  UNCERTAINTY  ANALYSIS  OF  FOUR  DATA  POINTS 


PARAMETERS 

SMOOTH 

100  )cW/m^ 

SMOOTH 

3500  W/m^ 

THERMO-E 

6000  W/m^ 

THERMO-E 

100  kW/m^ 

I s  ( amp ) 

2.122 

0.454 

0.494 

2.06 

Vs  (volts) 

9.45 

2.09 

2.20 

8.88 

I  (amp) 

4.07 

0.90 

0.98 

3.95 

6l  (amp) 

0.025 

0.025 

0.025 

0.025 

V  (volts) 

236.26 

52.29 

55.28 

222.05 

6V  (volts) 

0.05 

0.05 

0.05 

0.05 

Qh  (W) 

961.58 

47.06 

54.17 

877.1 

6Qh  (W) 

12.42 

2.83 

3.00 

7.43 

fiQh/Qh  (%) 

1.29 

6.00 

5.55 

0.85 

Do  (mm) 

15.88 

15.88 

13.31 

13.31 

&Do  (mm) 

0.1 

0.1 

0.1 

0.1 

L  (mm) 

203.2 

203.2 

203.2 

203.2 

6l  (mm) 

0.1 

0.1 

0.1 

0.1 

Ab  (m^) 

1.014E-2 

1.014E-2 

8.50E-3 

8.50E-3 

fiAb/Ab  (%) 

0.63 

0.63 

0.75 

0.75 

«Tsat  CC) 

0.01 

0.01 

0.01 

0.01 

Two  (’C) 

20.18 

12.92 

2.77 

11.13 

6Two  CO 

0.19 

0.28 

8.53E-2 

0.36 

AT  CC) 

17.96 

10.70 

0.53 

9.80 

6AT/AT  (%) 

1.06 

2.62 

16.20 

3.67 

Qf  (W) 

8.99 

5.02 

5.69 

2.91 

«Qf 

0.12 

0.03 

0.15 

2.48E-2 

Qh-2Qf  (W) 

943.60 

37.02 

54.06 

871.3 

q  (W/m^) 

93,081 

3664 

6109 

102,542 

Aq/q  (%) 

1.46 

7.67 

5.63 

1.14 

h  (W/m^»K) 

5182 

342.4 

11,200 

10,463 

Ah/h  (%) 

1.80 

8.10 

17.15 

3.84 

165 


APPENDIX  F:  SETUP  PROGRAM 


The  following  is  a  listing  of  the  complete  setup  program 
used  in  the  preparation  of  the  apparatus  for  testing.  It 
consists  of  five  sections: 

1 .  Monitor  the  Sump  temperature 

2.  Monitor  the  evaporator  liquid  temperature 

3.  Measurement  and  readout  of  all  thermocouple  channels. 

4 .  Measurement  and  readout  of  the  power  supplied  to  the 
tube  cartridge  heater. 

5.  Measurement  and  readout  of  the  power  supplied  to  the 
auxilliary  heaters  if  used. 

The  program  was  written  in  Hewlett-Packard  Basic  5.0  for  both 
the  Hewlett-Packard  9300  series  computer  and  9852A  series  data 
acquisition/control  unit. 
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t  I  PRoemn:  setup  program  for  hp  sssza 

Z  I  DATE:  AU6UST  1 3.189 1 

3  *  PROORAMHER:  LT  DEAN  SU6IYAHA 

13  REAL  T(«;IZ),Suii<e:l2>.T«Mp<«:tZ).E(l:3) 

Z3  ON  KEY  O.IS  GOTO  Z7 

ZS  PRINTER  IS  I 

Z7  PRINT 

20  PRINT 

3#  PRINT  USING  "4K. ““SELECT  OPTION“““ 

3t  PRINT  USING  “BX.““G-MONITOR  SUMP“”“ 

32  PRINT  USING  “6X,““l-mNIT0R  LIQUID“““ 

33  PRINT  USING  “EX.““Z-CHECK  THERnOCOUPLES“““ 

34  PRINT  USING  “6X, ““3-CHECK  MAIN  HEATER“““ 

35  PRINT  USING  “6X, ““4-CHECK  AUX  HEAT£RS“““ 

36  PRINT  USING  *BX. ““5-EXIT  PROGRAH““" 

37  PRINT  USING  “4X.““N0TE:  KEY  •  -  ESCAPE“““ 

3B  BEEP 

4«  lirUT  Ido 

41  IF  Iclo>S  THEN  Ido-S 

42  IF  Ido-G  THEN  fit 

43  IF  Ide-1  THEN  155 

44  IF  Ide-Z  THEN  IBS 

45  IF  Ide-3  THEN  2M 

46  IF  Ide-4  THEN  26S 

47  IF  Ido-S  THEN  252 

4B  PRINT 

49  ( 

St  PRINT 

SI  PRINT  “SUMP  TENPERATVIRE  OEG  C  * 

63  PRINT 

54  OUTPUT  7#9i“RST* 

65  Te4-« 

SB  FOR  J-l  TO  5 

66  OUTPUT  7t9i“C0NFHEAS  TEIfT.SI I .USE  666“ 

96  ENTER  76SiA 

166  Toi-Tei'iA 

116  NEXT  J 

126  Tdvg-Tot/S 

146  PRINT  USING  *4K.ia).00“iTavg 

141  BEEP 

142  PRINT 

166  IMIT  66 

151  GOTO  56 

1521 

155  PRINT 

156  PRINT  “LIQUID  TEWERRTURE  DEB  C’ 

166  PRINT 

159  OUTPUT  769i*RST“ 

166  FOR  I-l  TO  2 

IBZ  Su«(I>-6 

163  T<ll-6 

1B6  NEXT  I 

166  FOR  2-1  TO  6 

167  OUTPUT  7691'COMFHEAS  TEITT. 666-669 .USE  666“ 

166  FOR  I-l  TO  2 

169  BITER  76BiT<I) 

176  Sun<I)-StM<I)«T<I1 

171  NEXT  1 

172  NEXT  J 

173  FOR  1-1  TO  2 
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t74  TaPV(I>-Sun<I)/S 
ITS  NEXT  I 

ITS  Ta«g>(TMip(n4TaMp(2>)/2 

IM  PfUNT  USING  ‘4X.HOO.O(riTavg 

ISI  BEEP 

182  UNIT  St 

Its  SOTO  ISS 

1841 

IBS  PRINT 

186  PRINT  'CHANNEL  TEfFERATURE  QE6  C' 

18T  OUTPUT  T89i“RST” 

188  FOR  1-1  TO  12 
188  Sim<n-8 
188  T(l)-t 

182  NEXT  1 

183  FOR  J-l  TO  S 

184  OUTPUT  TMi'CONFHERS  TE1ff>T.S88-SI  I  .USE  888" 
laS  FOR  1-1  TO  12 

186  ENTER  T8SiT(I) 

I8T  Sua(l>-SuM<I)4T(l) 

188  NEXT  1 

288  NEXT  J 

281  FOR  1-1  TO  12 

282  Taap(l>-Sua<ll/S 

283  PRINT  TRB(3>il|TRB<IS><Tanp(l> 

284  NEXT  I 
286  BEEP 

286  UNIT  S 

287  80T0  IBS 
2881 

288  PRINT 

218  OUTPUT  TlSi'RST" 

211  FOR  1-1  TO  3 

212  Sup<ll-8 

215  ICXT  1 

216  FOR  J-l  TO  S 

218  OUTPUT  TlSi'CONFNERS  OCV.SI2*S14.USE  BOB’ 

218  FOR  I-l  TO  3 

221  ENTER  788iE(I) 

222  Sum  I  »-StM<  1 14E<  1 1 

223  NEXT  I 

226  NEXT  J 

226  Rar« 

228  FOR  I-l  TO  3 

228  IF  1-1  THEN  Volt-Sum  D/S 

238  IF  1-2  RHO  Ido-3  THEN 

231  PRINT  'RRKE  SURE  VOLTRBE  BOX  IS  SET  TO  RAIN  HEATERS' 

232  Rap-Sum  D/S 

233  END  IF 

234  IF  1-3  AND  Ido-4  THEN 

236  PRINT  'HAKE  SURE  vaTABE  BOX  IS  SET  TO  RUX  HEATERS' 

236  Rap-Sum  D/S 

237  END  IF 

236  NEXT  1 

238  Rap-RBS<Rap*1.SI82> 

248  Volt-ABS<Volt*26) 

241  Pouor-Volt«Anp 

242  Raolotoneo-Volt/Rnp 

243  IF  Aap-8  THEN  Raotatoneo-8 

246  PRINT 
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156 


Z4E 

BEEP 

Z47 

PRINT  - 

Z48 

PRINT 

Z49 

PRINT  USING 

ZM 

UNIT  S 

ZSI 

GOTO  2«S 

Z5Z 

BEEP 

Z53 

PRINT 

Z54 

PRINT 

ZS5 

ENO 

V0LTA6E(V)  CURRENT<A)  KS1STENCE<  o«M )  POUEmu)" 
"  I X ,  S<  MXXXXn.  GOO ,  3X ) "  t  Vol  t ,  flnp ,  Rm  t  ■  t  •nc* .  Potwr 
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APPENDIX  G:  DATA  REDUCTION  PROGRAM 


The  following  is  a  listing  of  the  complete  data-reduction 
program,  DRP8,  written  in  Hewlett-Packard  Basic  5.0  for  both 
the  Hewlett-Packard  9300  series  computer  and  9852A  series  data 
acquisition/control  unit. 
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IMei  FILE  NmiE:  0RP8 

1M4I  DATE:  Octobar  IS.  1384 

1MBI  REVISED:  Auguit  14,1991  by  LT  Daan  Sugiyana 

leizi 

1916  CON  /Idp/  Idp 
1929  PRINTER  IS  1 
1924  CALL  Salact 

1928  INPUT  -UANT  TO  SELECT  ANOTHER  OPTION  <  l-Y.^N)?"  .lael 

1932  IF  laal'l  THEN  60T0  1924 

1936  BEEP 

1949  BEEP 

1944  PRINTER  IS  I 

1948  PRINT  “DATA  C0LLECTI0N/REPR0CESSIN6  COfff>LETEO" 

1962  END 

1966  sue  Hain 

1969  COH  /Idp/  Idp 

1964  COH  /Cc/  C<7),Ical 

1968  COH  /Ull/  02,0i.0o.L.Lu,Kcu 

1972  DIH  Enfl  12 >  ,T(  12 )  .Dial  I3l,02a(  13>.Ola(  I3>.0oa(  131  .La(  13) .Lua(  13)  ,Kcua<  1 3) , 
E41<29).Et2(29),Tn9(4)t  16)  ,Sua(29).Tt(  12>.Ta<  12>.Vi(2 )  .Va( 2) .Elia<  I2).E(  12) 

1976  DATA  9. 1 990099 1 .26727.94369 .-767345.9295.79926696.8 I 
1999  DATA  •9247486589,6. 97688E-111  .-2. 66I9ZE4I3. 3. 9497eil«14 
1984  READ  C(«) 

19881  DATA  “Saeoth* ."High  Flo*",“Tharaoaaal-E".“TharaoaKal-HE" 

1992  DATA  Saooth.HlBh  Flua .Turbo-B.Hlgh  Flux  Hod, Turbo-8  Hod 
1996  READ  Tn8(*) 

1199  PRINTER  IS  791 
1194  BEEP 

1 198  IF  ldpr4  THEN  PRINTER  IS  1 
1112  IF  Idp>4  THEN  BOTO  2932 
1116  OUTPUT  799 1 "RST" 

1129  OUTPUT  7991-SET  TJHEDATE-iTIREDATE 
1124  OUTPUT  799 i-TIHEOATE- 
1128  ENTER  799 1  Dt 
1132  PRINT 

1136  PRINT  -  Honih,  data  and  4ina  :-|DATE9(Dt),TinE9(l>t) 

1149  PRINT 

1144  PRINT  USIN6  *19X,— NOTE:  Preoran  nano  t  ORPS'-- 
1148  BEEP 

1152  1W>UT  -ENTER  DISK  NUHBER- .On 

1166  PRINT  USIN6  *l6K.'-0iak  nunbor  •  — .ZZ’iDn 

1169  BEEP 

1164  IirUT  -ENTER  IITUT  HOQE  (^3B52A.1-FILE>-.In 
1169  BEEP 

1172  IirUT  -ULECT  HEATIN6  NODE  (»>ELECl  l•UATER)-.Ihn 
1176  BEEP 

1199  INPUT  -ENTER  THERMCOUPLE  TYPE  (^NEU.1«0LD>-.lcal 
1184  IF  In-9  THEN 

1199  KEP 

1192  INPUT  -61VE  A  NANE  FOR  TIC  RAU  DATA  FILE-.DZ_f lIo9 
1196  PRINT  USIN6  ’16K.— Nou  fllo  nwa:  —  .14A-|0Z.f ilat 
1299  Slial-Z9 

1294  CREATE  BOAT  02_f llaB.Slxol 
1199  ASSIBN  9Ftlo2  TO  OZ.FtlaB 
12121 

I2I6I  OUHHV  FILE  UNTIL  Nrun  KNOUN 
1229  0I.Fila9--aUHHV- 
1224  CREATE  BOAT  Dl.f llaB.SKal 
1228  ASSIBN  BFllal  TO  0l_ftlo9 
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IZ32  OUTPUT  tFUsliOt 
tZ3E  IF  Ihn-e  THEN 
tZ4«  BEEP 

IZ44  IM>UT  'ENTER  NURBER  OF  DEFECTIVE  TCS  (••DEFAULT)' ,ldic 
tZ48  IF  Idtc-*  THEN 
1Z5Z  Ldicl-« 

IZ56  LdicZ>« 

1Z6*  PRINT  USINB  *t6X,’‘Na  d«Fac41va  TC«  aiilat'" 

IZ64  END  IF 

IZ68  IF  Idtc>t  THEN 

IZ7Z  BEEP 

1Z76  INPUT  'ENTER  DEFECTIVE  TC  LOCATION' .Ldtcl 

IZ8*  PRINT  USINB  '16X,"TC  is  dafscilvs  location  ".DO'iLdtcl 

IZB4  LdtcZ-« 

tZB8  END  IF 

IZ9Z  IF  Idte-2  THEN 

t29E  BEEP 

t3«e  INPUT  'ENTER  DEFECTIVE  TC  LOCATIONS'. Ldtcl .LdtcZ 

I3*4  PRINT  USINB  'I6X."TC  ars  dafactiva  at  locations  "  .DO.AX.DCr  iLdtc)  .LdtcZ 

13*8  END  IF 

I3IZ  IF  Idtc>Z  THEN 

1316  BEEP 

132*  PRINTER  IS  I 

I3Z4  BEEP 

1328  PRINT  'INVALID  ENTRY" 

1332  PRINTER  IS  7*1 
1336  60T0  124* 

IS4«  END  IF 
1344  END  IF 

1348  OUTPUT  BFilaliLdtcl. LdtcZ 
13S2t  Iaa|  option 
1366  ELSE 
1 30^  BEEP 

1364  IIPUT  '6IVE  THE  NAME  OF  THE  EXISTIN6  DATA  FILE” .OZ.Fila* 

1368  PRINT  USINB  *16X."01d  fila  rmtmi  ".  14A'iOZ.f ilat 
137Z  ASSI6N  IFiloZ  TO  OZ.filaS 
1376  ENTER  BFilaZiNrun 
13B*  ENTER  iFiloZiOt 

1384  PRINT  USINB  '16X."This  data  oat  takan  on  ;  "  .t1A‘iDATEt(Dt> 

1388  ENTER  •FilaZiLdtcl. LdtcZ 
139Z  IF  Ldtcl  >•  OR  LdtcZ>«  T1CN 

1396  PRINT  USINB  'l6X."ThorNocauplao  itaro  dafactiva  at  locations:" ,Z< 30, 4X>'i 

Ldtcl. LdtcZ 

14M  END  IF 

14*4  ENTER  BFilaZiItt 

I4M  END  IF 

1489  IdtcHI 

1411  IF  Ldtcl >•  THEN  Idtc«Idte«1 
I4IZ  IF  LdteZ>«  THEN  Idtc-Idtetl 
14131  IF  Iaa«  AND  Iha-I  T1CN  IS9S 
1416  BEEP 

14Z*  INPUT  'WANT  TO  CREATE  A  PLOT  FILE?  (••N. 1>V>' .Iplet 
1424  IF  Iplot'l  THEN 
14Z8  BEEP 

I43Z  INPUT  '6IVE  NAME  FOR  PLOT  FILE'.P  filat 

1436  CREATE  BOAT  P_ftla8.4 

144*  ASSI6N  Viet  TO  P  filaS 

1444  END  IF 

1448  IF  Il«f  1  THEN 

I46Z  BEEP 
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I4S6  INPUT  “UflNT  TO  CREATE  Uo  FILE?  <*-N, !-¥>“ .luf 
UM  IF  luf-l  THEN 
1464  BEEP 

use  IM>UT  “ENTER  Uo  FILE  NAHE’.Uflla* 

1471  CREATE  BOAT  UfiIo»,4 
1476  ASSI6N  aufllo  TO  Uflla* 

14B6  END  IF 
1484  BEEP 

1488  IM>UT  “WANT  TO  CREATE  Ra  FILE?  <B-N, 1«y>“ .Ira 
1491  IF  Ira-1  THEN 
1496  BEEP 

ISM  INPUT  “ENTER  Ra  FILE  NAHE“.Raf lla* 

1564  CREATE  BOAT  RaFlla«.16 
ISM  ASSI6N  BRaflla  TO  Rafila* 

ISn  END  IF 

1S16  ENO  IF 

1526  PRINTER  IS  1 
1S24  IF  In-6  THEN 
1528  BEEP 

1532  PRINT  USINB  ‘4X,““Salact  tuba  nunbar~““ 

1536  IF  Ihit-6  THEN 

1546  PRINT  USIN6  “6X.““6  Snoeth  4  Inch  Rat“““ 

1644  PRINT  USINB  “6X.““1  Snoath  4  Inch  Cu  <Praaa/Sl lda>“““ 

1548  PRINT  USIN6  “6X,““2  Soft  Soldar  4  Inch  Cu“““ 

1552  PRINT  USIN6  “6X,““3  Soft  Soldar  4  Inch  HI6H  FLUX““* 

1556  PRINT  USINB  “6X,““4  Ulaland  Hwd  8  inch“““ 

15M  PRINT  USIN6  “6X,**S  HI6H  FLUX  8  tneh“““ 

1564  PRINT  USINB  “6X.“*6  6EUA-K  46  Flna/tn“““ 

1568  PRINT  USINB  “6X.““7  BEUA-K  26  Flna/ln“““ 

1572  PRINT  USINB  “6X.““8  BEUA-T  19  Flna/in““” 

1576  PRINT  USINB  “BX.*“9  6EtlA-T  OR  6EMA-TV  26  Flna/in . 

15M  PRINT  USIN6  “6N.““16  THERNOEXCEL'E'** 

1584  PRINT  USINB  “6X.’“11  THERHOEXCEL-HE“"“ 

1585  PRINR  USINB  “6X.*“12  TUHBO-B“““ 

1586  PRINT  USINB  ”5X.*’t3  6EUA-X  19  Flna/in“"" 

1588  ELSE 

1592  PRINT  USIN6  *6X,*“8  Snooth  tuba'“* 

1596  PRINT  USINB  “6X.““1  High  Flu*"”" 

IBM  PRINT  USINB  “BX.““2  TuPbo-B“““ 

1664  PRINT  USINB  '6X,'“3  High  Flwi  Hod““* 

IBM  PRINT  USINB  ’6X.'“4  Turbo-B  Nod“““ 

1612  END  IF 

1616  IMUT  Itt 

1626  OUTPUT  SFlIaliltt 

1624  ENO  IF 

1628  PRINTER  IS  761 

1632  IF  Itt<16  THEN  PRINT  USING  ’t6X.“*T«iba  Nunbari  *“,0“tltt 
1636  IF  Itt>9  THEN  PRINT  USING  *I6X.““Tuba  Nunbar:  ’“,DO“iItt 

1646  IF  Ihn-I  THEN  PRINT  USINB  “I6X.‘'Tuba  Typas  *“.1SA“iTn6(Itt) 

1644  BEEP 

1646  INPUT  “ENTER  OUTPUT  VERSION  (6-L0N6.  l-SHORT.I-NONEr  .lov 
1652  KEP 

1656  INPUT  “SELECT  <6-Lia. 1-VAP.2-<L16aVAP>/2>“.Ilqv 

16MI 

16641  DIICNSIONS  FO  TESTED  TUBES 

16681  ELECTRIC  HEATED  NODE 

16721  01-0lanatar  at  tharnocaugla  peatttona 

1676  ORTA  .6111125.. 6111125. .611II25..6129S46..6I2446.. 6129546.. 6166965 
IBM  DATA  .616M65.. 61157. .61157. .61157. .61157.. 61157. .6I6M65 
1664  AERO  0I><»> 


174 


1688  Dl'Oladit) 

18921 

I69EI  02>0ian«'tar  of  toot  ■oction  to  the  base  of  fins 

I7M  DATA  .•IS875..tlS87S..«IS875..*IS824..8l587S.. 615824, .81278 

1784  DATA  .8127, .8138, .8138. .8138. .8138. .8138. .8127 

1788  READ  D2a<*) 

17121 

17IGI  Di'Inslda  dlanator  of  unanhaneod  ends 

1728  DATA  .8127,  .8127,  .8127,. 8132.. 8127.. 8132.  .81 1 1 125.  .81 1 1125 
1721  DATA  .8118, .8118. .8118, .8118. .8118, .8111125 
1724  READ  Dial*) 

17281 

17321  OoaOutsldo  diaaotar  of  unonhancad  ands 

1736  DATA  . 815875,. 815875.. 8IS87S.. 815824,. 815875, .815824, .81278, .81278 

1737  DATA  .81331 . .81331 , .81331 . .81331 ..8158.. 8127 
1748  READ  OoaO) 

17441 

17481  L'Lanoth  of  anhaneod  surface 

1752  DATA  . 1816, . 1816, . 1816.. 1816.. 2832.. 2832,. 2832 . .2832 ,.2832 , .2832 , .2832 . .28 
32.. 2832,. 2832 
1756  REAOLaO) 

17681 

17641  Lu'Longth  of  unanhanead  surface  at  the  ands 

1768  DATA  .8254.. 8254,  .8254.. 8254. .8762. .8762,. 8762  ..8762,  .8762 ,  .8762  ..8762  ..87 
62 .  .8762 .  .8762 
1772  READ  Lua< • 1 
IT76I 

17881  Keu'Thareat  Conductivity  of  tuba 

1764  DATA  388. 344. 344. 45. 344,45. 344. 344. 398. 398. 398, 398, 398, 344 
1768  REAOKeua<«) 

1792  IF  lha«l  THEN 
17961 

18881  Data  stateaents  for  uator  hoatinB  "cde 
19841 

1988  DATA  8.81S875.8.81S87S.8.8169.8.8I38.8.8169.8.8.8.8.8 
1812  REAOOZal*) 

1816  DATA  8.8127,8.8127,8.8145.8.8127.8.8145.8,8.8,8,8 
1828  READ  Dial*) 

1824  DATA  8.815875,8.815875.8.8169.8.815875.8.8169,8,8.8.8.8 
1828  READ  DoaO) 

1832  DATA  8.3848.8.3848.8.3848.8.3848.8.3848,8.8.8,8.8 
1836  READ  La<») 

1848  DATA  8.8254.8.8254,8.8254.8.8254,8.8254.8,8.8.8.8 
1844  READLua<«i 

1848  DATA  398,45.398.45.398,8.8.8.8.8 
1852  READKcuals) 

1856  END  IF 
1868  D2-DEa<ltt) 

1864  Ol-Ola(Itt) 

1868  Oo*Dea<ltt) 

1872  L-La(Itt) 

1876  Lu-Luadtt) 

1888  KniHleuadtt) 

1884  Xn-.8 

1888  Fr-.3 

1892  IF  Itt-8  THEN  Cf-I.76E«9 
1896  IF  Itt>8  THEN  Cf-3.7837Etl8 
1988  A^Is(De*2-Dl*2l/4 
1884  P-PIsDa 
1986  IF  tba-1  THEN 
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19 1 Z  BEEP 

1916  INPUT  “TUBE  INITIATION  HOOE.  ( l-HOT  UATER.Z>STEAH.3-COLO  UATER>“,Itln 
192*  IF  Itin«1  THEN  PRINT  USIN6  “16X.“‘Tube  Initiate:  Hot  Uater“'"‘ 

1924  IF  Itia«Z  THEN  PRINT  USIN6  “l6X.*“Tube  Initiate:  Btean . 

1928  IF  Itia-3  THEN  PRINT  USING  ‘'16X.““Tube  Initiate:  Cold  Uater'‘““ 

1932  INPUT  “TEHP/VEL  HODE:  (B-T-CONST.W-DECi l-T-DEC,V-CONSTi  Z-T-INC.V-CONSTl" . 
Itv 

1936  IF  Itv-«  THEN  PRINT  USIN6  ‘l6X.*“Teap/Vel  Mode:  Conetant/Decreaeino”'"' 

1940  IF  Itvt  THEN  PRINT  USIN6  “16X.““Teap/Vel  Node:  Oecreasing/ConBtant’’““ 

1944  IF  Itv-Z  THEN  PRINT  USING  *16X.““Tanp/Val  Node:  Incraacing/Constant"“" 

1948  INPUT  'UANT  TO  RUN  UILSON  PLOT?  ( 1>Y.0>N>" .lyil 

19SZ  IF  Ihffl  AND  lyil>0  THEN 

1966  IF  ltt*0  THEN  Ci«.03Z 

1960  IF  Itfl  OR  Itt>3  THEN  Cf.0S9 

1964  IF  Itt«2  OR  ltt«4  THEN  Cf.062 

1968  BEEP 

1972  INPUT  'ENTER  Cl  <OEF:  UH*.03Z,HF-.059,TB«.06Z>~.Ci 

1976  PRINT  USING  “16X.““5iedep-Tate 

I9BO  PRINT  USING  “16X.”"  Conetant  -  ”'.Z.4D"iCl 

1984  END  IF 

1988  END  IF 

1992  IP  IhR«1  AND  In-1  AND  lyll-l  THEN 
1996  IF  Itt-0  THEN  Ci-.032 
2000  IF  ltt-1  OR  ltt-3  THEN  Ct-.069 
2004  IF  Itt-2  OR  Itt-4  THEN  Ci-.06Z 
2008  ASSIGN  OFileZ  TO  • 

2012  CALL  UiUon(Cf.Cl) 

2016  ASSIGN  OFileZ  TO  OZ.fileO 

2020  ENTER  BFileZiNrun.Oeldi.LdicI .LdteZ .Itt 

2024  END  IF 

2028  Neub-0 

2032  IF  Idp-4  THEN  lhn-1 
2036  IF  lHn-1  THEN  Naub-8 

2040  Nte-6 

2041  IF  Ihn-0  THEN  Nte-12 
2044  J-1 

2048  Sii-0 
2052  Sy-0 
2056  S«e-0 
2060  S«y0 
2064  Repeat:  I 
2066  IF  ln-0  THEN 
2072  Dtld-Z.22 
2076  Ido-Z 

2000  ON  KEY  0,15  RECOVER  2664 
2064  PRINTER  IS  1 

2006  PRINT  USING  “4X. "SELECT  OPTION”"" 

2092  PRINT  USING  -GX.—0.TRKE  ORTA"* 

2096  IF  Ihn-0  THEN  PRINT  USING  "GX.""I-SET  HEAT  FLUX"" 

2100  IF  Ihn-1  THEN  PRINT  USING  'GX.""I-SET  MATER  FLOM  RATE""" 

2104  PRINT  USING  "BX. “"2-SET  Teat*"" 

2106  PRINT  USING  ’4X."*N0TE:  KEY  0  -  ESCAPE""" 

2112  BEEP 

2116  IWUT  Ido 

2120  IF  Ido>Z  THEN  Ido-2 

2124  IF  Ido-0  THEN  2724 

21261 

21321  LOOP  TO  SET  HEAT  FLUX  OR  FLOUNETER  SETTING 
2136  IF  Ido-I  THEN 

2140  IF  Ihn-0  THEN 
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ZI4B  BEEP 

ZISZ  INPUT  “ENTER  DESIRED  Odp“.Oqdp 

Z156  PRINT  USING  ■•4X, “"DESIRED  Odp  RCTURL  Qdp . 

ZI6«  Err>ie«e 

ZI64  FOR  !•)  TO  Z 

ZtBS  Sun(I)-B 

ZI66  Vt(I>«e 

ZI68  NEXT  I 

ZI69  OUTPUT  TBSrRST" 

Z176  FOR  Jl-I  TO  S 

ZIM  OUTPUT  7B9i“CONFnEflS  DCV.StZ-SIS.USE  BM" 
ZI81  FOR  I-l  TO  Z 
ZtBZ  ENTER  7#SiVi<I) 

ZIB4  suM(i )>Sufi< n«vt< I ) 

ZIBB  NEXT  I 

Zt8B  NEXT  Ji 

ZieS  FOR  I-t  TO  Z 

Zt9Z  IF  !•!  THEN  Voli-Sun( I )/S 

Z19E  IF  I*Z  THEN  RMp«SuM<n/S 

ZZBB  NEXT  I 

2ZBI  A«p>ABS(Afip*l.9teZ) 

ZZBZ  Voli>ABS<Vol4*ZS> 

2ZB4  Ac|dpoVelt*Rnp/<PI*OZ*L) 

ZZM  IF  RBS<Aqdp-Oadp>>Err  THEN 

ZZIZ  IF  Aq^>Oqdp  THEN 

ZZI6  BEEP  4MB. .Z 

2ZZB  BEEP  4B0a..Z  " 

ZZZ4  BEEP  4#M..2 
zzza  ELSE 
ZZ3Z  BEEP  ZS#..Z 
ZZ36  BEEP  ZSB..Z 
ZZ4B  BEEP  ZSB..Z 
ZZ44  END  IF 

ZZ4S  PRINT  USING  ‘4X.NZ.30E.ZX.NZ.30E“iDqdp,Aqdp 

ZZSZ  UniT  Z 

ZZSB  GOTO  ZI64 

ZZGB  ELSE 

ZZ64  BEEP 

ZZ68  PRINT  USING  “4X,RZ.30E.ZX.HZ.30E“iOqdp.Aqdp 

ZZ7Z  Err-SM 

ZZ76  UNIT  Z 

ZZM  GOTO  Z<G4 

ZZB4  END  IF 

ZZ88  ELSE 

ZZSZ  BEEP 

ZZ9G  IirUT  “ENTER  FLOUHETER  SETTING"  .Fm 

Z3M  GOTO  ZM8 

Z3B4  END  IF 

Z3M  END  IF 

Z3IZI 

Z316I  LOOP  TO  SET  T««4 
Z3ZG  IF  IBo-Z  THEN 
Z3Z4  IF  Ikitt-I  THEN  Z344 
Z3ZB  BEEP 

Z33Z  IM>UT  “ENTER  DESIRED  T««t“  .Otld 

23361  PRINT  USING  “4X,"'  DTsai  RTaaT  RaTa  Tv 

Z34G  Ikdt-I 

2344  Oldt-G 

2348  OldZv# 

Z3SZ  Nrct 


Rata""" 
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2356  Nr««Nn  HOD  IS 
2360  Nn-Nn'»l 

2364  IF  Nrcl  THEN 

2365  IF  Ihn-e  THEN  PRINT  USIN6  “4X,““  T«b4  Tldl  Tld2 

p””" 

2368  IF  Ihn-t  THEN  PRINT  USIN6  ■■4X.‘~  T«at  Tldl  Tld2  Tv  Tsunp  Tinle 
i  Tpile  Toui“““ 

2372  END  IF 

2373  FOR  I-l  TO  6 

2374  Su>i(I)-« 

2375  NEXT  I 

2376  OUTPUT  7«9i"RST“ 

2377  FOR  Jl-I  TO  26 

2373  IF  Ihn>6  THEN  OUTPUT  769|-C0NFHEAS  TEHPT.56e-5l I .USE  666" 

2386  IF  Ihfi-I  THEN  OUTPUT  769i"C0NFnEAS  TEMPT. 366- 365, USE  666" 

2384  FOR  I>l  TO  6 

2388  IF  l»w6  ANO  I  >4  THEN  2461 

2392  ENTER  769 1  El  lq<  I ) 

2396  Sun<I>«Sufi<n4Eliq<I> 

2466  NEXT  I 

2461  NEXT  Jl 

2462  FOR  I-l  TO  6 

2463  IF  Ihn-6  ANO  1>4  THEN  2496 
2416  Eltq<I>-Sufi<I)/26 

2424  IF  I-l  THEN  Tldl-Eliq<I) 

2428  IF  1-2  THEN  TId2-Ellq<I) 

2432  IF  1-3  THEN  rv-Eliq<I) 

2436  IF  1-4  THEN  Tsunp-El lq< I > 

2446  IF  I-S  THEN  TlnUt-EUqd) 

2444  IF  1-6  THEN  Tou4-Ellq(I> 

2448  NEXT  I 

2452  IF  Ihn-I  THEN 

2456  Sunl-6 

2466  OUTPUT  769rRST* 

2468  FOR  Kk-I  TO  26 

2469  OUTPUT  769|"C0NFNEHS  TEMPT. 326.USE  666" 

2472  ENTER  769iEI 

2476  Sunt-S«iNltEI 

2486  NEXT  Kk 

2484  Ei«f(7)-ABS(Sunl/26) 

2488  Tpll«-Enf(7>/3.96E-4 
2492  END  IF 

2496  A41d-<TldMTld2>«.S 

2566  IF  RBS<Akld-Otld)>.2  THEN 

2564  IF  Atld>Dtld  THEN 

2568  6EEP  4666. .2 

2512  BEEP  4666.. 2 

2516  BEEP  4666.. 2 

2526  ELSE 

2524  BEEP  256.. 2 

2528  BEEP  256.. 2 

2532  BEEP  256.. 2 

2536  END  IF 

2546  Erri-Atid-Oldl 

2544  Oldl-Alld 

2548  Err2-Tv-01d2 

2552  01d2-Tv 

2553  IF  Tldl >166.  THEN  2572 

2556  IF  Ihff-6  THEN  PRINT  USINB  *4X.5<HOOO.D0.2X>'‘iDtld.Tldl  .Tld2 .Tv.Tqunp 
2566  IF  Itwl  AND  Id6-6  THEN  PRINT  USINB  *’4X,7IND0.D0.2X>*i0tld.Tldl  .Tld2.Tv,T« 
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unp.Tinlfl't  .Tpile 

2S64  IF  Ihn-I  AND  Idp-4  THEN  PRINT  USINB  ‘‘4X,5(ran.OO,ZX)  .BinSO.OD.ZXj-iOtld.Tl 
dl  ,TIdZ  .Tv.Tsunp.Tlnlat  .Tpile.Tou-t 

zsee  UAIT  z 

ZS7Z  60T0  Z3SE 
ZS76  ELSE 

ZBM  IF  ABS<Atld-Otld)>.l  THEN 

Z584  IF  AtldXHld  THEN 

zsee  BEEP  3Me..z 

ZS9Z  BEEP  3000.. Z 

Z596  ELSE 

Z600  BEEP  000.. Z 

Z604  BEEP  000,. 2 

2608  END  IF 

2612  Errl«Aild-01dl 

2616  Oldl-Aild 

2620  ErrZ’Tv-OldZ 

2624  OldZ'Tv 

2628  IF  Ihfi-0  THEN  PRINT  USIN6  ■■4X.S(MXX}.DD.ZX)‘'iDtld,Tld1  ,TldZ  .Tv.Tsunp 

2632  IF  Ihwl  THEN  PRINT  USING  '‘4X.5<  AOO.CXI.ZX)  .3<H30.00,IX)‘‘iDtld,Tldl  .TldZ  .Tv 

.Tsunp.Tlnlat .Tplla.Toui 

2636  UAIT  2 

2640  60T0  23S6 

2644  ELSE 

2648  BEEP 

2652  Errl*ALld-01dt 

2656  Oldl'AtId 

2660  Err2»Tv-Old2 

2664  OldZ'Tv 

2668  IF  IhR-0  THEN  PRINT  USING  ‘-dX.GdUXn.OO.ZXriDtld.Tldl  .TIdZ.Tv.Ttunp 

2672  IF  Ihn*l  THEN  PRINT  USING  *4X.8<(lOO.aO.ZX>‘‘tOtld.Tld1  .TldZ .Tv.Taunp.Tinlet 

.Tptla.Teut 

2676  UAIT  2 

2680  GOTO  2356 

2684  END  IF 

2688  END  IF 

2692  END  IF 

26961  ERROR  TRAP  FOR  Ido  OUT  OF  BOUNDS 

2780  IF  Ido>Z  THEN 

2784  BEEP 

2788  GOTO  2888 

2712  END  IF 

27161 

27281  TAKE  DATA  IF  LOOP 
2724  IF  Ikol-1  THEN  2737 
2728  BEEP 

2732  IW>UT  ‘ENTER  BULK  OIL  S‘.Bop 

2736  Ikol-1 

2737  FOR  I-l  TO  Ntc 

2738  E( 1 1-8 

2739  Stm(  I  >-8 

2740  NEXT  I 

2741  OUTPUT  789i“RST- 

2742  FOR  Jfl  TO  28 

2744  IF  Ihn-8  THEN  OUTPUT  788 I ‘CONFHEAS  TENPT. 688-51 1 .USE  B88‘ 

2745  IF  lhn-1  THEN  OUTPUT  789 i ‘CONFHEAS  TEHPT.388-38S.USE  Bl»~ 

2748  IF  I»M<-0  THEN  Nte-tZ 

2752  FOR  1-1  TO  Ntc 
2756  ENTER  TBSiEd) 

2768  8tm(  I  >>S«m(  I  >4E(  1 1 
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2776 

IF  I-(9*Naub) 

THEN  Etl(Ji-l )-£(!) 

2777 

IF  l-( 18-Naub) 

THEN  Et2<Ji-n-E(I) 

2778 

NEXT  1 

2788 

NEXT  Jt 

2784 

Kdl-8 

2785  FOR  1-1  TO  Nic 

2788  IF  I-O-Nsub)  Oft  I-<I8-Naub)  THEN 

2792  Eav«-Sun( I >/28 

2797  Suit<  I  )-8 

2798  END  IF 

28M  IF  l-(9-Naub)  THEN 

2881  FOft  A-8  TO  19 

2884  IF  ABS(Etl< Jk >-Eava)<. 1  THEN 

2888  Sua(I)-Sua<I)aEil(Jk) 

2812  ELSE 

2816  Kdl-Kdl41 

2817  END  IF 
2819  NEXT  Jk 
2828  END  IF 

2822  IF  l-(t8-Naub)  THEN 

2823  FOR  Jk-8  TO  19 

2825  IF  ABSlEtKJkl-EavaX.l  THEN 

2826  5«m(l)-Sun(I)«Et2(Jk) 

2828  ELSE 

2829  Kdl-Kdl41 
2838  END  IF 

2832  NEXT  Jk 

2833  ENO  IF 

I"<8-Naub>  OR  I-<1»-Naub>  THEN  PRINT  USIN6  "4X  “"Xdl  •  OiriKdl 

2837  IF  Kdl>18  THEN  ’ 

2838  BEEP 
2848  BEEP 

2848  MToMlei**  i"  data  -  rapaat  data  aat*"“ 

2852  ENO  IF 

2868  Eaf<I)-S4m<I)/<28-Kdl) 

2864  NEXT  I 
2868  IF  IFwl  THEN 
2872  Sun(  1  )-8 

2876  OUTPUT  7#9i*C0NFHERS  TEHPT.328,USE  688” 

2884  FOR  Kk-1  TO  28 
2888  ENTER  789iE(Kk) 

2892  SualD-SualDaElKkl 
2896  NEXT  Kk 

2988  Ear(7)-ABS<Sufi<  1  )>/28 
2964  END  IF 

2986  IF  Iha-8  THEN 

2989  FOR  I-l  TO  2 
2918  Sufi(I>-8 

2911  NEXT  I 

2912  OUTPUT  719i”RST” 

2913  FOR  Jl-I  TO  5 

2915  OUTPUT  7t9i”C0NFNERS  OCV,SI2-S13.USE  688” 

2916  FOR  I-l  TO  2 
2928  ENTER  7B9iE<I) 

2936  SufK  I  >-Stin<  I  >•»£(  1 ) 

2937  NEXT  I 
2948  NEXT  J1 
2941  FOR  I-l  TO  2 

2944  IF  I-l  THEN  Vr-Sun<II/S 
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2948  IF  1-2  THEN  1p-Sub( I )• J .91 B2/5 
29S2  NEXT  I 
29SE  END  IF 
2960  ELSE 

2964  IF  Ihfi-0  THEN  ENTER  tFll«2iBop.Told.Enf ( •  >  .Vr.Ir 
2968  IF  Ihn-t  THEN  ENTER  •FlU2iBop.Told.EnF(«  >  .Fns 
2972  END  IF 
29761 

29801  CONVERT  piifS  TO  TEHP  .VOLT, CURRENT 

2984  Tua-0 

2988  FOR  I- I  TO  Ntc 

2992  IF  ldtc>0  THEN 

2996  IF  I-Lfhcl  OR  I-Ldie2  THEN 

3000  T(I)-0 

3004  60T0  3044 

3008  END  IF 

3012  END  IF 

3016  IF  Itt<4  AND  Ihn-0  THEN 

3020  IF  I >4  AND  I <9  THEN 

3024  T( 1 1-0 

3028  60TO  3044 

3032  END  IF 

3036  E»  IF 

3040  T< I  l-Enf  ( I ) 

3044  NEXT  I 

3048  IF  I'|1;<4  THEN 

3052  FOR  1-1  TO  4 

3056  IF  I-LCHe1  OR  I-L«tte2  THEN 

3060  Tim-Tmi 

3064  ELSE 

3068  TmwTwHTI  I ) 

3072  END  IF 
3076  NEXT  I 
3000  TiM-TiM/<4-Itftc> 

3064  ELSE 

3008  IF  IHii-1  THEN  3128 

3092  FOR  1-1  TO  8 

3096  IF  I-LcHel  OR  I-LcHc2  THEN 

3100  Twa-TMa 

3104  ELSE 

3100  Twa-TiM+TI  I  > 

3112  END  IF 
3116  NEXT  I 
3120  Tu-Twa/IB-Idtc) 

3124  EW  IF 
3128  TId-T(9-NMib) 

3132  TIdZ-T( l0>Naub> 

3136  TIda-(TId4Tld2)«.S 
3140  TvT<11-Naiib) 

3158  Tauap-TI 12*N«ub1 
3100  IF  lha-0  THEN  3176 
3188  Tlfil0t-T(  I3-Nsub> 

3172  TeuT-T(  I4-Nsiib> 

3176  IF  Ihaii^  THEN 
3100  Aap-AeS<Ir> 

3184  VeI«-ABS(Vr>«2S 
3188  0-Vol4*Aap 
3192  END  IF 

3196  IF  Ii«-0  AND  Ihn-0  THEN 
3200  Kcu-FNKcuITh) 
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3Z«4  ELSE 

9208  Kcu*Kcua(  Iti ) 

3212  END  IF 
3216! 

322«l  FOURIER  CONDUCTION  EQUATION  WITH  CONTACT  RESISTANCE  NE6LECTE0 
3224  IF  Ih*»-«  THEN  Tii-Tw-Q«L06<D2/DI)/{2»PI«itcu«L> 

3228  IF  IlqvQ  THEN  TaafTlda 

3232  IF  Ilqv!  THEN  TaaT-CTIda^TvIi.S 

3236  IF  Ilqv-2  THEN  Taat-Tv 

3244  IF  Iha*!  THEN 

3248  TavO'Tinlat 

3252  6rad>37.9BS3'f.l«4388«Tavg 

3256  Tdrop>ABS(Enr<7>)*I.E'»6/(l«*6rad> 

326Q  Tavgc'Tlnlat-Tdrop* .S 

3264  IF  ABS<Tawa-Tavac)>.et  THEN 

3268  Tavg<*<Tavg'>Tavgc)*.S 

3272  60T0  32S2 

3276  END  IF 

3ZMI 

32841  COfrUTE  UATER  PROPERTIES 
3288  IF  Ihffl  THEN 
3282  KwFNKuKTbvo) 

3296  Huwa*FNHuy<Tavg) 

33M  CpwFNCpu!  Tavg ) 

33*4  Prw-FIPriHTavii) 

33Q8  Rhow-FNRhau<Tavg> 

3312  Tul«Tavo 
33161 

33261  Caiwuia  ROOT 

3324  WoW.96&7E-34FM*t3.6t95SE-3-Faa*<B.e2666E*6-FM*(  1.23688E-7-Faa*4.3ie97 
E'I6))) 

33281  NdeT*Ndot*< 1 .6365-TlnIat*< 1 .96644E-3-Ttnlat*5.2S2E-6> 1/1.8637 
3332  Kd4-6 

9336  Q*Ndot«Cpti«Tdrap 

3346  L*rld>Tilrap/L06<  ( Ttnlat-Taat  >/<  Ttnlai*Tdrop-Taat  >  > 

3344  Ua>Q/<PI«Oa«L<Latd) 

3348  fW>OQ«L(l6(Oo/Ol)/(2.*Keu) 

3352  TifTaa4'fFr<Ln1d 

3356  Vii-Hdo4/(Rhaw*PI*Ot*Z/4) 

3366  Raw>Rhow*Vii«Ol/Nuwa 

9364  MfCl'Ru/Dl'Raw* .  B*Pru‘<  1/3.  i*(  Nutia/FNHuwl  Twl  >  >* .  14 
3368  Tule«Tavs-0/<PI*Oo*L*Hi) 

3372  IF  ABS(TwI-Tuic)>.61  THEN 

3376  Tyt«<TMi*TM»c)».5 

3386  60T0  3364 

3384  END  IF 

3388  Twl-<THl4Tttle)*.S 

3392  He-l/(l/Ua-Oo/<Oi*Hl)-Ru> 

3396  END  IF 

3397  END  IF 

3399  IF  Itm-I  THEN 
3466  Tlia'tab>0/<Ho«PI*Oe*L> 

3464  Tw-Taa4*Thatab 

3465  ELU 

3468  Thatdb>Tii-Taa4 
3411  END  IF 
3419  IF  Tlia4ab<6  THEN 
3416  SEB* 

3426  INPUT  *niALL<T8AT  (6-CONTINUE.  l-END>*.Iav 
3424  IF  lav^  THEN  60T0  2668 


0 
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34Z8  IF  levi  THEN  3832 

3432  ENO  IF 

3440! 

3444!  COtrUTE  VARIOUS  PROPERTIES 
345Z  Tfllif(Tu'fT«st)*.S 
3456  Rho«FM»io(Tfilfi) 

3460  nu«FNHu<Tflln) 

3464  K>FM«TflIn> 

3466  Cp«FNCp(Tfiln) 

3472  B«4a>FNe««a(Tftln) 

3476  HFcrFNHFg!  T«ai  > 

3400  NfHu/Rho 
3404  Alpha«K/<Rho*Cp) 

3488  Pr>Nl/Alpha 
34S2  Paa4«FM>«ai<  Taat ) 

3436! 

3S00I  COMPUTE  NATURAL-CONVECTIVE  HEAT- TRANSFER  COEFFICIENT 
3504!  FOR  UNENHANCEO  ENO(S> 

3506  Hbar«ia0 

3512  FB-<Hbar*P/(Keu*An‘.S*Lu 
35t6  Tanh-FNTanh<Fa) 

3620  Thaia*Thatab*Tanh/Fa 

3524  Xii-<S.OI«Bata*ThaLab*Do'‘3*Tafih/(Fa*Nl*Alpha)>*.  166667 
3528  Vy-<U<.SSS/Prl*<S/l6))*<8/27» 

3532  Hbarc«K/Oa«(  .6'».387*K«/Vy)*2 

3536  IF  AeS<<Hbar-Hbare>/Hbarc)>.001  TKN 

3540  Hbar«<Hbar«Hbarc)*.5 

3544  GOTO  3512 

3540  END  IF 

35521 

35561  COMPUTE  HEAT  LOSS  RATE  THROUGH  UNENHANCED  ENO<S) 

3560  01-(Hbw*P*Keu<A)‘.S<Tha4ab«Tanh 
3564  QG«a-2«0I 
3568  Aa>PI*OZ*L 
35721 

35761  COMPUTE  ACTUAL  NEAT  FLUX  AND  B0ILIN6  COEFFICIENT 
3500  Odp-Oc/A» 

3504  Htuba-OdO/Thatab 

3508  Caf>(Cp*Tha«ab/Hfo)/<Odp/(Hu*Hfg>*< .014/(3. 8l»Rho>*.5)*< 1/3. >*Pr*l.7> 

3532 1 

35951  MCCORD  TIME  OF  DATA  TAKING 

3600  IF  la^  THEN 

3604  OUTPUT  TOSi’TIMEOATE* 

3608  ENTER  TfSiTold 
3612  ENO  IF 
36161 

36201  OUTPUT  DATA  TO  PRINTER 
3624  PRINTER  IS  701 
3820  IF  lov^  THEN 
3632  PRINT 

3636  PRINT  USING  ’10X.'’Da4a  Sa4  Nuabar  •  ",00O.2X.*'’0ulli  Oil  S  •  “.DO.O.SX.I 
4A’iJ,6ap.TlNE0<Teld) 

3640  IF  Ihn-O  THEN 

3644  PRINT  USING  *IOK,*'TC  No:  t  2  3  4  5  6  7 

0*”” 

3648  PRINT  USIN6  ’■10X.*''‘Tafv  i*'.8(  iK.NOO.OO>*iT(  1  >.T(  2)  .T(3>  .T(4>  .T(5>  .T(6>.T( 
7).T(0) 

3652  PRINT  USING  *fOX.’'  Taa  Tllqd  Tllqdl  Tvw  Paal  Tauap**’ 

3656  PRINT  USING  'lOX.KMOO.aO.IXl.tX.NOO.aO.lX.K  IX.MDO.OOI  ,2K.HD0.D*«TM.TId.T 
Jd2 , 7<r,Paa4 ,  Tbimp 
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366«  PRINT  USIN6  "lex,'”  Thctab  Htube  Odp***"* 

3664  PRINT  USIN6  “  l•X,t10D.  30,  tX.HZ. 306.  IX.R2. SOE" iThaiab.Hiube.Odp 

366B  ELSE 

3672  PRINT  USING  "IBX.-'-  Fns  Vu  Tsat  Tlnl  Tdrop  Thatab  q  Uo 

Ho””" 

3676  PRINT  USING  ”  iex,4( 20.00,  tX)  .2. 30.  t X.DO. DO.  t X.3(  112. 3DE ,  IX)” iFns . Vu.Taal  ,Ti 

nl at , Tdrop , Thatab , Odp , Uo . Ho 

3686  END  IF 

3664  END  IF 

3688  IF  Iov-1  THEN 

3692  IF  J-l  THEN 

3696  PRINT 

37M  IF  Ihn>e  THEN 


3784 

3788 

PRINT 

ELSE 

USING  ”I8X, 

RUN  No 

Oils 

Taat 

Htuba 

Odp 

Thatab"” 

3712 

PRINT 

USING  ‘I8X, 

FNS 

OILS 

TSRT 

HTUBE 

OOP 

THETRB”” 

3716  ENO  IF 
T?2e  ENO  IF 
3724  IF  IhM-«  THEN 

3728  PRINT  USING  ”I2X.30,4X,00.2X.H00.00.3( IX.H2.3DE>”| J.Bop.Taat.Htuba.Odp.Tha 
tab 

3732  ELSE 

3736  PRINT  USING  ”i2X,30.4X,00,2X,N00.00.3< IX.HZ.30E>”lFas.Bep,Tsat,Htuba,Qdp,T 
hatab 

3746  ENO  IF 
3744  ENO  IF 
3748  IF  IfT^  THEN 
37S2  BEEP 

37S6  WUT  “OX  TO  STORE  THIS  08TR  SET  <  l•Y.•■N)7“.0k 
3768  END  IF 

3764  IF  Ok>l  OR  In««  THEN  3-3*\ 

3768  IF  Ok>l  RNO  la^B  THEN 

3772  IF  Ihn^  THEN  OUTPUT  OFlIoliBop.Told.EafOI.Vr.Ir 
3776  IF  Itw-I  THEN  OUTPUT  BFllatiBop.Told.Eaf(*).Fna 
37BB  ENO  IF 

3784  IF  Iuf«l  THEN  OUTPUT  BUftlaiVw.Uo 
3788  IF  Ira«t  THEN  OUTPUT  8Raf llaiFas.Raw 

3792  IF  <Ifcl  OR  Ok>l)  RNO  Iplet>l  THEN  OUTPUT  OPIeti 04). Thatab 
3796  IF  Ia-8  THEN 
3888  BEEP 

3884  IirUT  “WILL  THERE  BE  RNOTHER  RUN  ( l•y,8-N>7“ .Be  on 
3888  NrurcJ 

3812  IF  8o.on-8  THEN  3832 
3816  IF  6e  on<>8  THEN  Rapaat 
3828  ELSE 

3824  IF  JtNruntl  THEN  Rapaat 
3828  ENO  IF 
3832  IF  In-8  THEN 
3836  BEEP 

M48  PRINT  USING  *I8X,‘“N0TE:  **.22.““  data  runa  wara  aterad  In  flla  *“.I8R“|J- 
t .0Z_rilo8 

3844  R6SIBN  BFllal  TO  • 

3848  OUTPUT  BFlla2iNrun-l 
3852  RSSIBN  BFllal  TO  Ol.fllad 
3856  ENTER  BFllal lOt.Ldtel.LdtcT.Itt 
3888  OUTPUT  aFllo2il>t,Ldtel,Ldtc2.Itt 
3864  FOR  1-1  TO  Nrun-I 
3888  IF  THFN 

3872  ENTER  BFllaliBop.Tald.Enflal.Vr.Ir 
3876  OUTPITT  BFllaEiBap.Tald.EnfC* > .Vr.lr 
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3880  ELSE 

3884  ENTER  arilaliBop.Told.Efif(<>. Fra 
3888  OUTPUT  •FlUZiBop,Told,EnT<*  >.Fm 
389Z  END  IF 
3896  NEXT  I 

39M  ASSIGN  OFlIal  TO  • 

3904  PUR6E  "DUmY" 

3908  END  IF 
39 1 Z  BEEP 
3916  PRINT 

39Z0  IF  IploT-l  THEN  PRINT  USING  ''t0X."''NOTE:  ‘"‘.ZZ.""  X-Y  palra  yara  storad  In 
pIoT  daia  fila  .I0A"|J-I  ,P_f  ilat 
39Z4  ASSIGN  BFlIaZ  TO  • 

39Z8  ASSIGN  BPIoi  TO  • 

393Z  IF  luf-l  THEN  ASSISN  0UfiIa  TO  • 

3936  IF  Ira* I  THEN  ASSIGN  BRafila  TO  • 

3940  CALL  Siata 
3944  BEEP 

3948  IirUT  'LIKE  TO  PLOT  DATA  <  t-Y,0-N)T' .Ok 
39SZ  IF  Ok- I  THEN  CALL  Ploi 
3956  SUBENO 
39601 

39641  CURVE  FITS  OF  PROPERTY  FUNCTIONS 
3968  OEF  FNKcu(T> 

39721  OFHC  COPPER  250  TO  300  K 

3976  Tk-T+Z73.»5  1C  TO  K 

3980  K-434-.n2«Tk 

3984  RETURN  K 

3908  FNEND 

399Z  OEF  FNHu(T) 

39961  170  TO  360  K  CURVE  FIT  OF  VISCOUSITY 

4000  Tk-TkZ73.l5  )C  TO  K 

4004  Hu-EXP(-4.46364< l0tt.47/Tk))*l.0E'3 

4008  RETURN  Hu 

4012  FNENO 

4016  OEF  FNCpITI 

40Z0I  100  TO  400  K  CURVE  FIT  OF  Cp 
4024  Tk-T«273.15  1C  TO  K 

4028  Cp-. 4018841. 65087E-3*Tk'»1.51494E-6«Tk*Z-E.67853E-10*Tk*3 

403Z  Cp-Cp*1080 

4036  RETURN  Cp 

4040  FNEND 

4044  OEF  FNRholT) 

4048  Tk-T*Z73.15  1C  TO  K 

4052  N-1-< 1.8*Tk/753.95>  IK  TO  R 

4066  Ro-36. 32461. 146414aX*< I/3>4I6.4I60IS4X4I7.4768384X*.54I . I lOOZB^X'Z 

4060  Ra-Ro/.06Z4Z8 

4064  RETURN  Re 

4068  FNEND 

4872  OEF  FNPrITI 

4876  Pr-FNCp<T>4FNNu<T)/FNK<T) 

4000  RETURN  Pr 
4084  FNEM) 

4008  OEF  FNK(T) 

48821  T<360  R  UITH  T  IN  C 
4096  K-.87I-.00026I4T 
4100  RETURN  K 
4104  FNENO 
4108  OEF  FNTaiMX) 

4112  P-EMPIX) 
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4116  0-1 /P 

412e  Tanh-<P-0)/<P*01 

41Z4  RETURN  Tanh 

4128  FNENO 

41381 

4184  OEF  FNBatalT) 

4188  Rop-FNRho(T4.  I  > 

4192  Ron>FNRhe( T- . n 

4196  Bata— 2/(Rop4Ron>*(Rop-Ron>/.2 

4Z«e  RETURN  Bata 

4284  FNENO 

4206  OEF  FNHfg<T> 

4212  Hfg-1.3741344EtS-T*(3.3e9436IEt24T*l.216S143) 

4216  RETURN  Hfg 

4220  FNENO 

4224  OEF  FNPaat(Tcl 

42281  0  TO  00  dag  F  CURVE  FIT  OF  Paat 

4232  Tf-I.B«Tc432 

4236  Pa*S.94SS2S4Tf •( . 16352082424 •( t .4840963E-34Tr49.61Se671E-6> ) 

4240  Pg^Pa-U.T 

4244  IF  Pg>0  THEN  I  4-PSI6,— In  Hg 

4248  Paat«Pg 
4262  ELSE 

4256  Psat*Pg*29.92/14.7 
4260  ENO  IF 
4264  RETURN  Paat 
4268  FNENO 

4272  OEF  FNHanooth<X.8op.Iaat> 

4276  OIN  A<5),B<5).C(5),0<5> 

4280  ORTA  .20526, .25322, .319048, .55322. .79909, 1.00258 
4284  DATA  .74515, .72992 . .73189, .71225. .68472.. 64197 
4288  OATA  .41092 ,. 17726, .25142 ..54006, .81916, 1 .0845 
4292  OATA  .71403. .72913, .72565. .696691 , .665867, .61889 
4296  REAO  A<  * )  .B<  • )  .C<  • )  ,0<  • ) 

4300  IF  Bap<6  THEN  I>Bop 
4304  IF  Bap-6  THEN  1-4 
4308  IF  Bop-10  THEN  I-S 
4312  IF  Iaat-1  THEN 
4316  Hs-EXP<A(IHB<I>*L06<X)) 

4320  ELSE 

4324  Ha-EXPICdMOlIXLOSIX)) 

4328  ENO  IF 
4332  RETURN  Ha 
4336  FNENO 
4340  OEF  FWely(X) 

4344  COR  /Cply/  A< 10. 10) ,C(10> .B< 5) .Nop.Iprnt .Opo. I log, Ifn, Ijotn.NJotn 
4348  Xl-X 
4352  Poly-B(0> 

4356  FOR  1-1  TO  Nop 

4360  IF  Ilog-I  THEN  X1-L06<X> 

4364  Poly-PolytB<I>*Xl‘I 
4368  NEXT  I 

4372  IF  Ilog-1  THEN  Poly-EXP(PoIy) 

4376  RETURN  Poly 
4380  FNENO 
4384  SUB  Poly 

4388  OIN  R(10),S(10).Sy(12>.S«(12>.X«(100),Vy(100) 

4392  con  /Cply/  A( 10, 10) .C( 10) ,B(S) .N.Iprnt .Opo.Ileg.Ifn, I]oln,N)oin 
4396  con  /Xayy/  Xp(  25)  ,Yp<  25) 

4400  FOR  1-0  TO  4 
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44M 

4468  NEXT  t 
4412  BEEP 

4416  INPUT  -SELECT  <«-FILE.t-KEY60«W0.2«PR06RM1)~.lR 

442B  In«lM1 
4424  BEEP 

4428  IM>UT  'ENTER  NUNBER  OF  X-Y  PAIRS' .Np 
4432  IF  In«l  THEN 
4436  BEEP 

444«  IlfUT  'ENTER  DATA  FILE  NAME' .O.Flla* 

4444  BEEP 

4448  INPUT  'LIKE  TO  EXCLUDE  DATA  PAIRS  < t-Y.A-N)?' .lad 
4452  IF  lad- I  THEN 
4456  BEEP 

4466  IW>UT  'ENTER  NUMBER  OF  PAIRS  TO  BE  EXCLUDED' . I pax 
4464  END  IF 

4468  ASSIGN  BFila  TO  O.ftla* 

4472  ELSE 
4476  BEEP 

4480  IW>UT  ‘UAMT  TO  CREATE  A  DATA  FILE  < t-Y,8-N>7' .Yam 
4484  IF  Yat-I  THEN 
4488  BEEP 

4482  IM>UT  '6IVE  A  NAME  FOR  DATA  FILE' ,0_f  llaO 

4436  CREATE  BOAT  D.FilaO.S 

4580  ASSIGN  OFlla  TO  O.fllaO 

4584  END  IF 

4586  END  IF 

4512  BEEP 

4516  INPUT  ‘ENTER  THE  ORDER  OF  POLYNOHIAL" .N 

4528  FOR  1*8  TO  N*2 

4524  Sy<  I  )*8 

4526  Sx<I)*8 

4532  NEXT  I 

4536  IF  Iad*t  AND  In- I  THEN 

4548  FOR  1*1  TO  Ipax 

4544  ENTER  BFilatX.Y 

4546  NEXT  I 

4552  END  IF 

4556  FOR  I-l  TO  Np 

4568  IF  In- I  THEN 

4564  IF  Opo-2  THEN  ENTER  OFllaiX.Y 

4568  IF  Opa<2  THEN  ENTER  OFilaiY.X 

4572  IF  Opo«1  THEN  Y-Y/X 

4576  IF  Ilag-I  THEN 

4588  IF  Ope-2  THEN  X4-X/Y 

4584  X-L06(X> 

4588  IF  Opa-2  THEN  Y-L06(Xt) 

4592  IF  Opo<2  THEN  Y-L06(Y) 

4596  END  IF 
4688  END  IF 
4684  IF  In-2  THEN 
4688  BEEP 

4612  IHPUT  'ENTER  NEXT  K-Y  PAIR'.X.Y 

4616  IF  Yaa-1  THEN  OUTPUT  OFllaiX.Y 

4628  END  IF 

4624  IF  In<3  THEN 

4628  Xx<  I  >-X 

4632  Vy(I)-Y 

4636  ELSE 

4648  X-Xp<I>n 
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4B44  Y-Yp(I-n' 

464B  END  IF 
465Z  R<e)-Y 
465E  Sy<e>-Sy(e)'»Y 
4660  S< 1 >-X 
4664  Sul  I  >-Sii<  I  )+X 
4668  FOR  J-1  TO  N 
467Z  R(J)-R(J-n«X 
4676  Sy(  J)-Sy<  J)+R<  J) 

4680  NEXT  J 
4684  FOR  J-Z  TO  N«Z 
4688  S<  J)>S<  J-1  )*X 
4B9Z  Sk(  J)-Sii(  J)+S(  J) 

4696  NEXT  J 
4700  NEXT  I 

4704  IF  Yaa>t  AND  In-Z  T1CN 
4708  BEEP 

47tZ  PRINT  USING  “IZX.OO,""  X-Y  pair*  wara  atorad  in  file 

4716  END  IF 

47Z0  S]i(0)-Np 

47Z4  FOR  1-0  TO  N 

47Z8  C(I)-Sy<n 

473Z  FOR  J-0  TO  N 

4736  A(!,J)-Sii(UJ) 

4740  NEXT  J 
4744  NEXT  I 
4748  FOR  1-0  TO  N- I 
47SZ  CALL  Olvidad) 

4756  CALL  Subtract! I4 I ) 

4760  NEXT  1 
4764  B<N>-C<N)/A<N.NI 
4768  FOR  1-0  TO  N-t 
477Z  B<N-I-I)-C<N-I-I) 

4776  FOR  J-0  TO  1 

4780  B<N-|-I)-B<N-l-l)-A(N-t-I,N-J>*B<N-J> 

4784  NEXT  J 

4788  8<N-1-I>-B(N-I-I)/A(N-1-I,N-I-I> 

479Z  NEXT  I 

4796  IPRINTER  IS  701 

4800  IPRINT  B<<) 

4004  IPRINTER  IS  705 
4008  IF  Iprnt-0  THEN 

48IZ  PRINT  USING  "1ZX, ""EXPONENT  COEFFICIENT""" 

4816  FOR  1-0  TO  N 

4BZ0  PRINT  USING  " 15X.00.5X .H0.70E”» I ,B< I > 

48Z4  NEXT  I 
48Z8  PRINT  "  " 

403Z  PRINT  USING  "1ZX.""0ATA  POINT  X  V 

EPANCY""" 

4836  FOR  I- I  TO  Np 
4040  Yc-B(0) 

4044  FOR  J-1  TO  N 
4848  Yc-Yc4B( J)*Xk< I )*J 
48SZ  NEXT  J 
4856  0-Yy<I)-Yc 

4060  PRINT  USING  " 15X .30.4X.4< H0.50E . IX>"| I .X*(  I > . Yy< I > . Vc. 

4064  NEXT  I 

4868  END  IF 

4B7Z  ASSIGN  BFlla  TO  • 

4876  SUBENO 


”".t0A"iNp.O_filat 


Y( CALCULATED)  OISCR 
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4Be«  SUB  Oivlde<n) 

4884  con  /Cply/  ft< 18, 18) ,C< 18) .B< 5) .N.iprnt .Opo, llog, If n, IJoln.Njoin 
4888  FOR  I-n  TO  N 
4892  Ao-fld.H) 

4896  FOR  J>n  TO  N 

4988  Ad  ,J>*A(  I  ,J)/Ao 

4984  NE)(T  J 

4988  Cd)-Cd)/Ao 

4912  NEXT  I 

4916  SU6EN0 

4928  sue  Subtract(K) 

4324  con  /Cp’.y/  A(  18, 18)  .C(  18)  .B<5> .N.Iprnt  .Opo, Ilog.If n. IJoin.Njoin 

4328  FOR  I>K  TO  N 

4932  FOR  J-X-1  TO  N 

4936  Ad,J)«n(K-t,J)-Ad.J) 

4948  NEXT  J 

4944  Cd)-C(X-l)-Cd) 

4948  NEXT  I 
4952  SUBENO 
4956  SUB  PI in 

4968  con  /Cply/  A(  18, 18),C(  t8),B(5).N,Iprnt.0po.Iliio.lfn,IIoln,Nloln 
4964  con  /Xxyy/  Xx< 25) , Yy( 25) 

4968  PRINTER  IS  785 
4972  BEEP 

4976  INPUT  'UANT  TO  PLOT  Uo  vs  Vw7  I  l•V,8•N)’' .luo 
4988  IF  Iuo«8  THEN 
4984  BEE** 

4988  INPUT  'SELECT  (••h/h8S  swie  tuba.l«h(HF)/h(Bn)’Mrt 
4992  BEEP 

4996  INPUT  'SELECT  h/h  RATIO  < 1»FILE.8»C0nPUTED)“,Ihrat 
5888  IF  Ihra'l*8  THEN 
5884  BEEP 

5888  INPUT  “UHICH  Tsai  < l•6.7.8••2.2 )' .Isat 
5812  END  IF 
5816  Xnln^ 

5828  Xaa««18 

5824  Xalap«2 

5828  IF  Irl-8  THEN 

5832  Valn>8 

^36  rMlii-1.4 

5848  Ystsp*.2 

5844  ELSE 

5848  Yaln”8 

5852  Yaan-IS 

5856  Yslsp*5 

5868  END  IF 

5864  ELSE 

5868  Ope>2 

5872  Yaln-8 

5876  Vaa«-I2 

5868  Yslap-3 

5884  Xaln-8 

5868  Xiiwi-4 

5892  Xslsp-1 

5896  END  IF 

5188  IF  IHral*!  THEN 

5184  Yaln-8 

5188  Ymu-IB 

51)2  Yatap>3 

5116  Knln-8 
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5120 

5124 

5128 

5132 

5135 

5140 

5144 

5148 

5152 

5155 

5150 

5154 

5168 

5172 

5175 

5180 

5184 

5188 

5192 

5196 

5200 

5204 

5208 

5212 

5216 

5220 

5224 

5228 

5232 

5236 

5240 

5244 

5248 

5252 

5256 

5260 

5264 

5268 

5272 

5276 

5280 

5284 

5288 

5292 

5296 

5300 

5304 

5308 

5312 

5316 

5320 

5324 

5328 

5332 

5336 

5340 

5344 

5348 


Xnax*9 
XB'tip»2 
END  IF 
BEEP 

PRINT  "INiSPliIP  2300,2200.8300,68001" 

PRINT  “SC  0. 100,0. l00iTL  2.0»“ 

Sfx-100/<Xi«ax-XMln) 

5fy-100/tYfi«ii-Vain> 

PRINT  “PU  0.0  PD“ 

FOR  Xa'Xnln  TO  Xnax  STEP  Xilep 

X-<Xa-Xain>xSTx 

PRINT  “PR" I X.”. 01  XTi" 

NEXT  Ka 

PRINT  “Pfl  100,0iPUi" 

PRINT  “PU  Pfl  0,0  PD" 

FOR  Ya-Ynin  TO  Ynax  STEP  Ysiap 
Y-< Ya-Ya»n)»STy 
PRINT  "Pfl  0."iY."YT" 

NEXT  Ya 

PRINT  “Pfl  0.100  TL  0  2" 

FOR  Xa>Xnln  TO  Xnax  STEP  Xstap 

X«<  Xa-Xnin)*Sfx 

PRINT  "Pfl"iX." .100»  XT" 

NEXT  Xa 

PRINT  "Pfl  100,100  PU  Pfl  100,0  PD“ 

FOR  Ya'Ynin  TO  Ynax  STEP  Yatap 

Y-<Ya-Yaln)»Sfy 

PRINT  "PO  Pfl  I00,".Y."YT" 

NEXT  Ya 

PRINT  "Pfl  100,100  PU" 

PRINT  "Pfl  0,-2  SR  1.5,2" 

FOR  Xa>Xain  TO  Xaax  STEP  X«tap 

X«<Xa-Xaln)*Sfx 

PRINT  “Pfl")X.".0i" 

IF  Iuo-0  THEN  PRINT  "CP  -2 1 »L8" iXai"" 

IF  luo-l  THEN  PRINT  “CP  - 1 .5.- 1 iLB" iXai "" 

NEXT  Xa 

PRINT  "PU  Pfl  0.0" 

FOR  Ya-Yaln  TO  Yaax  STEP  Y«4ap 
IF  flSSIYaKt  .E-S  THEN  Ya*0 
Y-(Ya-Yaln)»Sfy 
PRINT  "Pfl  0."|Y,"“ 

IF  Iuo-0  THEN  PRINT  "CP  -4.-.25iL8"i Yai"" 

IF  Iuo-1  THEN  PRINT  "CP  -3.-.25lLB"iYai"" 

NEXT  Ya 

Xlab«10-"Oll  Porcant" 

IF  Iuo-0  THEN 
IF  IpY-0  then 
Ylabel8-"h/h0(" 

ELSE 

Y1  abo  1  "  h/ hamoi  h" 

END  IF 

PRINT  "SR  I.S.ZiPU  PA  50. -10  CP"i-LEN<Xlabelf )/2i"0iLB"iXlabeI>r'" 

PRINT  "Pfl  -11,50  CP  O,"i-LEN<Ylabal0)/2*5/6i"DI  0, I iLB"i Ylabalii"" 

PRINT  "CP  0,0" 

ELSE 

PRINT  "SP0JSP2" 

PRINT  "SR  l.2.Z.4iPU  PA  -S.SSiDI  O.liLBUiPR  l.0.5iLBoiPR  -I.O.SiLB  (kU/a 


5352  PRINT  "PR  -I.0.5|SR  t.l.5iLB2iSR  l.5.2iPR  .5..5iLB.iPR  .5.0iLBK)" 
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53SB  PRINT  "Pfl  42.-1«iDI  t.«iLBViPR  .4.-liLBuiPR  1 . .5|LB< b/b )" 
536®  PRINT  ••SP®:SP1" 

5364  END  IF 
5368  Ipn>® 

537Z  BEEP 

5376  INPUT  "URNT  TO  PLOT  DRTfl  FROfI  ft  FILE  (  1-Y.®-N>7“  .Ofcp 

538®  Icn-e 

5384  IF  Okp-t  THEN 

5388  BEEP 

539Z  INPUT  "ENTER  THE  HftHE  OF  THE  DftTft  FILE" ,D_F ile* 

53961  IF  Iuo«®  THEN 
54®®  BEEP 

5404  INPUT  "SELECT  (e*LINEftR.  I'LOGt X, Y)" ,Ilog 
5408!  END  IF 

54IZ  ftSSIBN  BFile  TO  D.fila® 

5416  BEEP 

54Z®  1W>UT  "ENTER  THE  BE6INNIN6  RUN  NUH8ER" .Hd 
54Z4  BEEP 

54Z8  IirUT  "ENTER  THE  NUMBER  OF  X-Y  PftIRS  STORED"  .Npalrt 
543Z  IF  luo*®  ftND  IhraL-®  THEN 
5436  BEEP 

544®  IirUT  "ENTER  DESIRED  HEftT  FLUX".Q 

5444  END  IF 

5448  BEEP 

545Z  PRINTER  IS  I 

5456  PRINT  USIN6  "4X,"'Salact  a  ayabol:""" 

546®  PRINT  USIN6  “4X.""I  Star  Z  Plua  aiQn""" 

5464  PRINT  USIN6  "4X,"“3  ClreVa  4  Squara"*” 

5468  PRINT  USING  "4X,""S  Roabua""" 

S47Z  PRINT  USING  "4X."“6  Rlght-alda-up  trlangla""" 

5476  PRINT  USING  "4X,""7  Up-aida*doun  irlancle""" 

548®  INPUT  Syp 
5484  PRINTER  IS  7«5 
5488  PRINT  "PU  DI" 

549Z  IF  Sya-1  THEN  PRINT  "SH»" 

5496  IF  Syp'Z  THEN  PRINT  "SH«" 

65®®  IF  Syp- 3  THEN  PRINT  "SHo" 

5504  Nn>4 

5508  IF  Ilog-I  THEN  Nn«l 
551 Z  IF  Rd>1  THEN 
5516  FOR  I>1  TO  (Hd-ll 
55Z0  ENTER  0FllaiXa,Ya 
55Z4  ICXT  I 
S5Z8  END  IF 
553Z  IF  IhraT-0  THEN 
5536  01*0 

5540  IF  Iles*1  THEN  0-L06<Q) 

5544  END  IF 

5548  FOR  1*1  TO  Npalra 

55SZ  IF  Iue-0  RNO  lhrat>0  THEN 

5556  ENTER  0FllaiXa,B<*> 

5560  ya-B(0) 

5564  FOR  K-1  TO  Nn 
5568  Ya*Va*B(K>«Q‘K 
5572  NEXT  K 
5576  END  IF 

5580  IF  liio>1  OR  IhraT'l  THEN 
5584  ENTER  NFllaiXa.Ya 
5588  IF  Iuo-1  THEN  Va-Va/1000 
5S9Z  END  IF 
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SS36  IF  Iuo>«  AND  Ihra-t**  THEN 
seee  if  Ilog«l  then  Ya>EXP<Ya) 

5604  IF  llag«e  THEN  Ya-Ql/Ya 

sees  IF  Ir4-«  THEN 

5612  IF  Xa«*  THEN 

5616  Yo-Ya 

5620  Ya>1 

5624  ELSE 

5628  Ya-Ya/Yo 

5632  END  IF 

5636  ELSE 

5640  Hsn>FNH*nooth<0,Xa,Iaat) 

5644  Ya-Ya/Han 

5648  END  IF 

5652  END  IF 

5656  Xx(I-n>Xa 

5660  Vy(I'1>-Ya 

5664  X-(Xa-Xaln>*SFx 

5668  V><Ya-Ynln)*5fy 

5672  IF  Sya>3  THEN  PRINT  “SH“ 

5676  IF  Sya<4  THEN  PRINT  “SR  1,4. 2. 4“ 

5680  PRINT  “PA".X,Y.““ 

5684  IF  Sya>3  THEN  PRINT  “SR  1.2. 1.6" 

5688  IF  Syn-4  THEN  PRINT  “UC2,4.99,0.-a.-4.0.0.a.4.0.«' 

5692  IF  Sy«»S  THEN  PRINT  “UC3.0.99.-3.-6.'3.6.3.6.3.-6i* 

5696  IF  Syn>6  THEN  PRINT  “UC0,S. 3.99, 3.-6, -6.0.3.81" 

5700  IF  Sya-7  THEN  PRINT  “UC0.-5.3.93.-3.8.6.0,-3.-8i“ 

5704  NEXT  I 
5708  SEEP 

5712  ASSI6N  tFlU  TO  • 

5716  END  IF 
5720  PRINT  “PU  SH" 

5724  BEEP 

5728  INPUT  “UANT  TO  PLOT  A  POLYNOMIAL  < l-V.O-NIT-.Okp 

5732  IF  Otp-I  THEN 

5736  BEEP 

5740  PRINTER  IS  1 

5744  PRINT  USING  “4X.““Salac4  lint  typa:""” 

5748  PRINT  USING  “6X,“"0  Solid  Itna““" 

5752  PRINT  USING  “6X,“"I  Oaihad""" 

5756  PRINT  USING  “BX.“"2,..5  Lengor  lino  -  daoh""" 

5760  INPUT  Ipn 
5764  PRINTER  IS  70S 
5768  BEEP 

5772  IW>UT  “SELECT  (B-LINEAR,  1«L06<  X.Y)  >"  .Hog 

5776  Iprnl-1 

5780  CALL  Poly 

5784  IF  Iuo«1  THEN 

5788  BEEP 

5792  II#>UT  "DESIRE  TO  SET  X  Lowor  and  Uppor  Llnlt  ( l•Y,0•N>7“ .Ixlln 

5796  IF  Ixlli«<^  THEN 

5880  Xll-0 

5804  Xul>7 

5808  END  IF 

5812  IF  IxllPfl  THEN 

5816  BEEP 

5820  INPUT  “ENTER  X  Lower  Llnil“.XlI 
5824  BEEP 

5828  INPUT  “ENTER  X  Uppor  Llnlt". Xul 
5832  END  IF 
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583e  END  IF 

S84e  FOR  X«-xn  TO  Xul  STEP  Xitap/2S 
S844  len>Icn'»t 
S848  Ya-FNPoly(Xa> 

5652  IF  luo't  THEN  Ya>Ya/IMe 
5856  Y-(Ya-Yain><Sfy 
5868  X«(Xa-Xnin>*Sfx 
5864  IF  Y<8  THEN  Y>« 

5868  IF  Y>t«e  THEN  60T0  5988 
5872  Pu>8 

5876  IF  Ipn«t  THEN  Idf-Icn  NOD  2 
5888  IF  Ipn-2  THEN  IdF-Icn  NOD  4 
5884  IF  Ipn-3  THEN  IdF'Icn  NOD  8 
5888  IF  Ipn-4  THEN  Idf«Icn  NOD  16 
5892  IF  Ipn-5  THEN  IdF-Icn  NOD  32 
5896  IF  Idf-1  THEN  Pu*l 
5988  IF  Pu-8  THEN  PRINT  *Pft“.X.Y.-PO" 

5984  IF  Pu»)  THEN  PRINT  “PR" , X . Y . "PU" 

5988  NEXT  Xa 
59 1 2  PRINT  “PU" 

5916  60T0  5372 
5928  END  IF 
5924  OEEP 

5928  IIPUT  “URNT  TO  QUIT  < J-Y,8-N)7“ .Iqult 
5932  IF  Iquli-t  THEN  5948 
5936  60T0  5372 
5948  PRINT  “PU  SP8' 

5944  SUBENO 
5948  sue  Stait 
5952  PRINTER  IS  781 
5956  J-8 
5968  K«8 
5964  BEEP 

5968  IF  Iplei«l  THEN  RSSI6N  IFlla  TO  P  filaS 
5972  BEEP 

5976  INPUT  “LRST  RUN  No?<8-g0IT)”.Nn 

5988  IF  NrcB  THEN  6124 

S9B4  Nn-NmJ 

6988  S«-8 

5992  Sy8 

5996  Sz-8 

6888  Sia-8 

6884  Sya-8 

BBBB  Sza>8 

6812  FOR  1*1  TO  Nn 

6816  J-J4I 

8628  ENTER  BFllaiO.T 

6824  H-Q/T 

6828  81*5x40 

6832  Sxa«Sxi4Q*2 

8836  SySyiT 

6848  Sys*Sya4T*2 

6844  St*Si4H 

6848  Sxs*Szb4H*2 

6852  NEXT  I 

6866  0«va*Sa/Nn 

6868  Tava*Sy/Nn 

OMI  Hava*Sz/Nn 

— “  S^»*8’B6R<RBS<<NB«9xB-Sx*2)/<Nri»«Nn-l»»I) 
8872  Sdav1*S8R<RBS(<Nn«SyB-Sy*2>/<Nn*(Nn-1>>H 


6076  Sdavh-sa6<  ABS(  ( Nn*5za-Sz*2 ) /<  Nn*<  Nn- 1 >  >  > ) 

6060  Sh-10O<Sdevh/Hava 
6064  Sq>tOO*Sdavq/Oava 
6088  St-IOOaSdavt/Tave 
6032  IF  K>l  THEN  6116 
6096  PRINT 

6100  PRINT  USING  "1 1K.""DflTfl  FILE:”" . Ufl“ iFilaS 
6104  PRINT 

6106  PRINT  USING  “11X.””RUN  HTube  SdavH  Odp  SdavO  Thatab  SdavT"” 

6112  K>1 

6116  PRINT  USING  " 1 1 X ,0C,2< 2X,0. 30E , IX.30.2D) .2X.OO. 30. 1X.30. 20" t J.Hava.Sh.Qave 

.Sq.Tava.S't 

6120  GOTO  5972 

6124  RSSI6N  OFllal  TO  • 

6128  PRINTER  IS  1 
6132  SUBENO 
6136  sue  CoaF 

6140  con  /Cply/  A<  10,10), C(  10),B<S>.N,Iprn4.0po. Hog. IFn. Horn. Njoln 
6144  BEEP 

6148  IIPUT  "GIVE  A  NANE  FOR  CROSS-PLOT  FILE",CpFO 
6152  CREATE  BOAT  CpF8,2 
6156  ASSIGN  OFlla  TO  CpF« 

6160  BEEP 

6164  II*>UT  "SELECT  (0>LINEAR.  1«L06<  X,Y> )"  .Ilog 
6168  BEEP 

6172  IIO*UT  "ENTER  OIL  PERCENT  (-l•STOP>“.Bop 

6176  IF  Bcip<0  THEN  6192 

6100  CALL  Poly 

6184  OUTPUT  OFilaiBop.BO) 

6188  GOTO  6168 
6132  ASSIGN  OFila  TO  • 

6196  SUBENO 

6200  SUB  Ullaen(CF,Cl> 

6204  con  /Ull/  02,01 .Oo.L.Lu.Keu 
6208  OIREnFOE) 

62121  ULISON  PLOT  SUBROUTINE  OETERHINE  CF  AND  Cl 
6216  BEEP 

6220  INPUT  "ENTER  DATA  FILE  NANE".FllaO 

6224  BEEP 

6228  PRINTER  IS  1 

6232  PRINT  USING  "4X,""Salae4  ofrltan:*"" 

6236  PRINT  USIN6  "4X.""  0  Vary  CF  and  Cl**" 

6240  PRINT  USING  "4X.**  1  Fl»  CF  Vm-y  Cl**" 

6244  PRINT  USING  *4X.’*  2  Vary  CF  Fl»  Cl*** 

6240  IIPUT  "ENTER  OPTION"  .IcF In 

6252  PRINTER  IS  701 

6256  IF  IcflK-f  nCN  6272 

6260  IF  Iefla>«  THEN  BEEP 

6264  IF  IcFlcI  THEN  IIPUT  "ENTER  CF".CaF 

6268  IF  Icfla-2  THEN  INPUT  ’ENTER  Cl*. Cl 

6272  PRINTER  IS  I 

6276  IIPUT  "Itani  To  Vary  CoaffTl  l•r.O•N)"  .IceeaF 
BIBO  IF  Ieeenf*l  THEN  IIPUT  'ENTER  COEFF’.R 
6284  PRINTER  IS  761 

6208  IF  leflaa#  OR  lofla-I  THEN  CFa-.064 

6292  IF  lefla-l  THEN  Cfa>Caf 

6296  Cla>Cl 

6900  Kn-.8 

6964  Pr>.3 


194 


63«e  Jj-C 
63IZ  Rr>3. 

6316  IF  Iccoef'l  THEN  Rr-R 

63Z«  PRINTER  IS  I 

63Z4  PRINT  Oo.Di.Kcu 

63Z8  ASSIGN  GFlla  TO  Filet 

633Z  ENTER  •FileiNrun.Ot.LdicI .LdtcZ.Itt 

6336  Ru«Da*L06<0o/0l>/(Z*Kcu) 

6340  Sii-6 
6344  Sy-« 

6348  Sxy6 
635Z  SxZ>« 

6356  SyZ«e 

6366  FOR  I«t  TO  Nrun 

6364  ENTER  8Fllaieop.TinEt<Told).EnF(*>.Fm 
63681  CONVERT  ERF'S  TO  TEMPERATURE 
6J7Z  FOR  J«l  TO  5 
6376  T<  J)-FNTvev(EnF<  J>) 

6386  NEXT  J 

6384  Tcat>(T(ll*T<Z>)*.S 
6388  Tava>T(S) 

6392  6ra^37.9eS3'».164388*Tavo 
6H6  Tdrep>Cfif<7)<t.E46/<  I6.«6rad) 

6466  TavBe«T<S>-Tdrop«.S 

6464  IF  ABS(Tavg-Tavgc)>.61  THEN 

6468  TavB-(Tavg4Tavac>*.S 

6412  GOTO  6392 

6416  END  IF 

64261 

64241  Ceapute  prapartlaa  of  waiar 
6428  KyFNKw<TavB> 

6432  HuMa«FNHuu<Tava) 

6436  CpwFNCpy(TavO> 

6446  Pm-FNPrviTawot 
6444  RhowFNRhawlTavg) 

64481 

6452 1  Coapuia  prapartlaa  af  Fraan-tt4 

6456  LatiHTdrap/L06<  <  T( 5 >-Taat ) / 1  T( 5>-Tdrap-Taa4 )  > 

6466  IF  J]-6  THEN 
6464  TwTaattFraLatd 
6468  Thatab«TicTsat 
6472  Jj«l 
6476  END  IF 
6466  Tr-<Tw*Taat>*,5 
6464  Rha«FNRha<  Tf ) 

6468  Hu-PNNu<Tf) 

6492  K>FNK(Tf) 

6496  Cp-FNCp<Tf) 

6666  Ba4a-FNeata<  Tf ) 

R64  Hf  a>FNHf  o(  Taat  > 

6666  NfHu/Nha 
6512  Alpha>K/<Nhe«Cp) 

6616  Pr-Nl/Alpha 
66261 

65241  Analyale 
66261  COMPUTE  HOOT 
8632  6-PIa(De‘2-Ot*2>/4 
6636  P^IaOe 

6646  IWet-3.6657E*34FMaa(3.6l9S5E-3-Faea<6.62666E-6>Fae*( I.Z3666E-7-Faa«4. 31697 
E' 161 1 1 
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6S44  Q-ridot*Cpw*Tdrop 

6S4BI  COWUTE  NATURAL-CONVECTIVE  HEAT-TRfWSFER  COEFFICIENT 
6S5ZI  FOR  UNENHANCED  ENO(S) 

6556  Hbor-ISe 

656*  Fa><HbBr*P/<Kcu*A>)‘.S*Lu 
6564  T«nh"FNT«nh< Fe) 

6568  Th«ia»ThaTab*Tanh/F* 

6572  Xx>(S.8l*B«ta*ThBTab*Oo‘3*Tanh/(F«*Nl*Alpha)>‘. 166667 
6576  Yyn+<  .S5S/Rr)*<S/J6))*<e/27) 

6580  Hbare-K/Oo*( .6>.387*Xx/Yy)‘Z 

6584  IF  ABS(<Hbar-Hbarct/Hbar)>.Mt  THEN 

6588  Hbar><Hbar«Hbarc)*.5 

6592  60T0  6568 

6536  END  IF 

66MI 

66841  CONFUTE  HEAT  LOSS  RATE  THR0U6H  UNENWWCED  ENOS 

6608  Qt«<Hbar*P*Kcu*A)*.S*Theiab*Tanh 

6612  Qc>Q-2«0t 

6616  As>PI*02*L 

66201  COffUTE  ACTUAL  HEAT  FLUX 

6624  0dp>0c/Aa 

6628  IF  leflx-O  OR  lcfli>l  THEN  C«f>t/Cf‘< l./Rr) 

6632  Thatato>Caf/Cp*HFo*<Odp/(Hu*HFo)«(  .014/(9. BI«Rho))‘. S>*( t/Rr>*Pr‘l .7 
6636  Ho-Odp/Thai^ 

6640  Oaaga-Ho/Cf 

6644  Uo*0/<PI«0o*L*Lfrtd) 

6648  VwHdot/(Rhou«PI*0l*2/4t 
6652  RawRhow  VwDt/Huua 
6656  TuCTirfO*RH/<PI«Oa*L) 

6660  6ana>KH/0l*Raw‘ .8*Pru'( 1 /3. >*(Nuwa/FNNuw( TmI >  >* . 14 
66641  PRINTER  IS  I 
6668  Ywd./Ua-RultOaaoa 
6672  Xu«0aaa«*0o/(6aaa*0i) 

6676  Sx'Si'fXw 

6600  SySy-iYw 

6604  SxySxytYMvXu 

6688  S«2>S«2«Xw<Xy 

6692  SyZ«Sy2'fYw«Yw 

6696  NEXT  I 

6760  ASSieN  OFlla  TO  • 

6764  n>(S«»5yNruP*5Ky)/(SK*Si>-Nrun«S«2) 

6760  C><Sy-Si*N)/Nrun 

6712  IF  Icflx-O  OR  Icftx-3  OR  Icfix-4  THEN 

6716  Clc«l/H 

6720  Cfe-1/C 

6724  END  IF 

6728  IF  IeflR«l  THEN 

6732  Cle«t/N 

6736  Cfe-Cf 

6746  END  IF 

6744  IF  Ieflii*Z  THEN 

6740  Cte<l 

6752  CFe-l/C 

6756  END  IF 

6766  IF  R65<(Cl-Clc>/Cic».661  OR  R6St(CF-Cfc)/Cfe».66l  THEN 
6764  Cl-(Cl*Cle>*.S 
6760  CF-<Cf«CFe)*.S 
6772  PRINTER  IS  I 

6778  PRINT  US1N6  -2X.—  Caf  •  ”’.N2.30E.2X,"“  Cl  -  "* .N2.30E*iCa» .Cl 
6766  PRINTER  IS  761 
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E7B4 

6788 

6782 

6796 

6880 

6884 

6888 

6812 

6816 

6828 

6824 

6828 

6832 

6836 

6848 

6844 

6848 

6852 

6856 

6868 

6864 

6868 

6872 

6876 

6888 

6884 

6888 

6892 

6896 

6988 

6984 

6988 

69t2 

6916 

6928 

6924 

6928 

6932 

6936 

6948 

6944 

6948 

6952 

6956 

6968 

8864 

6968 

6972 

6976 

6988 

8984 

6988 

6992 


7612 

7616 

7626 


60TO  6328 
END  IF 
PRINT 

PRINTER  IS  781 
PRINT  USIN6  “ITK.""  Cf 
PRINT  USIN6  "8X,"~ASSUt1E0 
PRINT  USIN6  “EX. ‘■"CALCULATED 
PRINT 


Cl""" 

"“.n2.3DE.3X.N2.3De"iCF«.CiB 
"".H2.30E.3X,H2.30E"iCBf .Cl 


Supi2-Sy2-2»N»Siiy-2»C»Sy4n‘2»Sii2*2»«»C«SK*Nrun»C“2 
PRINT  USIN6  "16X,""Sun  of  Squares  •  "" .2. 3DE"iSun2 
PRINT  USIN6  "I8X.""Coaf»lelant  -  "".D.DOD"iRr 
SUeENO 
OEF  FNHuuCT) 

A-247.8/<T*133.IS) 

Nu*2.4E-S*l0*A 
RETURN  Hu 
FNENO 

OEF  FNCpu(TI 

Cpu«4.2ll28858-T*<2.26826E-3-T*<4.4236IE-542.7l428E-7*T>> 

RETURN  Cpu«t888 

FNENO 

OEF  FNRhou<T) 

Ro>999.S29464T*( .8l269-T*(S.482SI3E-3-T*l.234l47E-S>> 

RETURN  Ro 

FNENO 

OEF  FNPru(TI 

Pru-FNCpu<  T  >*FNnuu( T )/FNKu(  T  > 

RETURN  Pru 


FNENO 

OEF  FNKu<T) 

X-< T4273.I5)/273.»S 

K  y- .  922474X*  ( 2 . 8395- X*  <  1 . 8887- X«< . 52577- . 87344*  X  )>  > 

RETURN  Ku 
FNENO 

sue  Plel 

COH  ttpXyt  A(  18,16), C<  18), e<5>.Nep.Ipriyt.0po. Hog, Hn,I)ein.N]eln 
OIH  es(3) 

INTEOER  tl 
PRINTER  IS  I 
Ii»v6 
REEP 

IiruT  "LIKE  DEFAULT  VALUES  FOR  PLOT  < l-V.R-N)?" ,Idv 
Ope^ 

DEEP 

PRINT  USIN6  '4K."*Salec4  Opiten:""" 

PRINT  USIN6  "EX, ’*6  q  versus  rfelts-T""* 

PRINT  US1N6  “6X.""1  h  versus  6el»e-T"“" 

PRIki  U6IN6  *6X.*“2  h  versus  q""" 

INPUT  Ope 
DEEP 

lirUT  "SELECT  UNITS  <6>SI.1-ENeLISH)'.Iun 
PRINTER  IS  765 
IF  IdvOI  THEN 
SEEP 

INPUT  "ENTER  NUH8ER  OF  CYCLES  FOR  X-AXIS" .Cs 
SEEP 

IirUT  "ENTER  NUHSER  OF  CYCLES  FOR  Y-AXIS". Cy 
SEEP 

INPUT  ‘ENTER  NIN  K-VALUE  IHULTIPLE  OF  l6>".Xntn 
SEEP 
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7*24  INPUT  "ENTER  HIN  Y'VALUE  (NUtTlPLE  OF  l•)",Vlll^ 

7e2B  ELSE 

7*32  IF  Opo>e  THEN 

7636  Cy3 

7Me  Cx-3 

7044  Xnln-.l 

7648  Ynln-IM 

7052  END  IF 

7056  IF  Opo’l  THEN 

7060  Cy-2 

7064  Cm«2 

7068  Knlif.l 

7072  Ynln-100 

7076  END  IF 

7080  IF  Opo*2  THEN 

7081  IF  lun>0  THEN 
7084  Cy3 

7088  Cii-2 
7092  Xfiin«1000 

7096  Ynin>l0e 

7097  ELSE 

7098  Cy3 

7099  Ck-3 

7100  Xnlrfl00 

7101  Ynln«l0 

7102  END  IF 

7104  END  IF 

7105  END  IF 
7108  BEEP 

71)2  PRINT  "INiSPliIP  2300,2200.8300,68001" 

7116  PRINT  "SC  0,t00.0.l00iTL  2.0<‘' 

7120  SFii>l00/Cx 
7124  SFyl00/Cy 
7128  BEEP 

7)32  I»8>UT  "WRNT  TO  BY-PRSS  CRGET  <  )*Y.0.N)" .Ibyp 

7)36  IF  Ibyp-)  THEN  7632 
7)40  PRINT  "PU  0.0  PO“ 

7)44  Nn-9 

7)48  FOR  !•)  TO  Cx*) 

7)52  Xpt>XPiin<)0"<I-l) 

7)56  IF  I'Cxf)  THEN  Nn-t 

7)60  FOR  J«)  TO  Nn 

7)64  IF  J-)  THEN  PRINT  "TL  2  0" 

7168  IF  J-2  THEN  PRINT  "TL  )  0" 

7)72  K««Xat*J 

7)76  K«L6T<KaTKnin)*Sf« 

7)00  PRINT  ”PR"iX,”.0i  KTi" 

7164  NEXT  J 

7)68  NEXT  I 

7162  PRINT  "PR  I00.0|PU|* 

7)96  PRINT  "PU  PR  0.0  PtT 

7200  Nn-9 

7204  FOR  1-1  TO  Cy^l 

7208  Ya4-YNln-)0‘(I-t> 

7212  IF  I-Cy*)  THEN  Nn-) 

7216  FOR  J-t  TO  Nn 

7220  IF  J-)  THEN  PRINT  "TL  2  0" 

7224  IF  J-2  THEN  PRINT  "TL  t  0" 

7226  Ya-Vat«J 

7232  Y-L6T<Va/Vnln»Sfy 
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7236  PRINT  “PA  ®."iY."YT“ 

724®  NEXT  J 
7244  NEXT  I 

7246  PRINT  “PA  ®,l®«  TL  ®  2“ 

7252  Nn>9 

7256  FOR  1-1  TO  Cii+1 
726®  Xai-Xnln*l®‘(I>1 ) 

7264  IF  I-Ck+1  THEN  Nn-I 

7268  FOR  J-l  TO  Nn 

7272  IF  J-l  THEN  PRINT  "TL  ®  2" 

7276  IF  J>l  THEN  PRINT  "TL  ®  I" 

728®  Xa-Xat«J 

7284  X-L6T(Xa/Xntn)*SF« 

7288  PRINT  “PA" »X.“ . I®®»  XT" 

7292  NEXT  J 

7296  NEXT  I 

73®8  print  “PA  18®. I®®  PU  PA  l®».®  PD“ 

73®4  Nn-9 

73®8  FOR  I-l  TO  Cy+I 

7312  Yai-Yaln«t®‘'<I-n 

7316  IF  l-Cy+1  THEN  Nn-I 

732®  FOR  J-1  TO  Nn 

7324  IF  J-l  THEN  PRINT  “TL  ®  2“ 

7328  IF  J>1  THEN  PRINT  “TL  ®  I" 

7332  Ya-Yat*J 

7336  Y-L6T<Ya/Yntnl*SFy 

734®  PRINT  “PD  PA  l•®.*,Y.“YT“ 

7344  NEXT  J 
7348  NEXT  1 

7352  PRINT  “PA  I®®,!®®  PU” 

7356  PRINT  “PA  •.-2  SR  1.5,2“ 

736®  ll-L6T<Xnln> 

7364  FOR  t-t  TO  Cn^l 
7368  Xa-Xntn«l®*<I-tl 
7372  X-L6T<Xa/Xn»n»«SFK 
7376  PRINT  ’PA“iX.“.®i“ 

ll  -*.-*'«-BI®iPR  -2.2iLB“Uir 

7^  IF  IK®  THEN  PRINT  “CP  -2.-2iLBI®iPR  ®.2|LB“,I1,““ 
7388  Il-It4l 
7392  NEXT  1 
7316  PRINT  “PU  PA  ®.®“ 

74®®  Ii-L6T<Yntn) 

74*4  Vl®-|® 

74®6  FOR  I-l  TO  Cy*l 
7412  Ta-Ynin<l®*<I-n 
7416  V-L6T<Ya/ratn>«Sfy 
742®  print  “PA  ®.“|Y.““ 

7424  print  "CP  -4.-.2SiLBI®|PR  -2.2|LB“iIli““ 

7428  Il-lt4l 
7432  NEXT  I 
7436  BEEP 

744®  IWUT  -BANT  USE  DEFAULT  LABELS  <1-y,®.N»7“.IdI 
7444  IF  IdlOl  THEN  ' 

7448  BEEP 

7462  INPUT  “ENTER  K-LA8EL“ .Xlabal® 

7456  BEEP 

748®  II»UT  -ENTER  V-LABEL”  .Vlabal® 

7464  END  IF 

74®B  IF  Qpo<2  THEN 

7472  PRINT  “SR  I.IiPU  PA  4®.-l4|“ 
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7476  PRINT  "LB<T|PR  -1.6.3  PD  PR  1.2.0  PUiPR  .5.-4iLBuoiPR  .S.li" 

7480  PRINT  “LB-TiPR  .5,-1 iLBsatiPR  .5. It" 

7484  IF  Iun-0  THEN 
7488  PRINT  "LB)  (K>" 

7492  ELSE 

7496  PRINT  -LB)  <F)" 

7500  END  IF 
7504  END  IF 
7508  IF  Opo-2  THEN 
7512  IF  Iun-0  THEN 

7516  PRINT  "SR  1.5.2|PU  PR  40.-14iL6q  (U/niSR  I.I.SiPR  0.5.1iLB2iSR  1.5.2|PR 
0.5.-I1LB)" 

7520  ELSE 

7524  PRINT  "SR  1.S.2|PU  PR  34.-14iLBq  <B4u/hriPR  .S..S1LB.1PR  .S,-.5|" 

7528  PRINT  "LBFiiPR  .S.IiSR  t,1.5(L62iSR  1.5.2»PR  .5.-ULB);" 

7532  END  IF 
7536  END  IF 
7540  IF  Opo-0  THEN 
7544  IF  Iun-0  THEN 

7548  PRINT  "SR  1.S.2|PU  PR  -12,40|OI  0.1lLBq  (U/niPR  -1.0.5|SR  1.1.5|LB2|SR  1 
.5.2»PR  1..5|LB)" 

7552  ELSE 

7SSS  PRINT  "SR  1.S.2iPU  PR  -12.32iOI  0.1iLBq  (Biu/hriPR  -.5..5»LB. iPR  .5..5i" 
7560  PRINT  "LBfiiSR  1.1.S«PR  -1,.5iLB2iPR  1..5iSR  1.5,2iLB)" 

7564  END  IF 
7568  END  IF 
7572  IF  Opa>0  THEN 
7576  IF  Iun-0  THEN 

75801  PRINT  -SR  1.5,2«PU  PR  -12.38|DI  0.l|LBh  (U/niPR  -1,,5iSR  1.1.S«LB2iSR  1. 
S.21PR  .5. .Si" 

7584  PRINT  "SR  1.2,2.4|PU  PR  -12.37|0I  0,IiLBhiPR  1 .B.SiLBeiPR  -),0.5»LB  <U/n 

7588  PRINT  "PR  -1,.S|SR  I.I.SiLBIiSR  I.S.ZiPR  .S..5tLB.iPR  .S,0|LBK>" 

7592  ELSE 

7596  PRINT  "SR  1.5.2|PU  PR  -12.28iOI  0.llLBh  (Btu/hriPR  -.5. .SiLB. iPR  .5, .Si" 

7600  PRINT  "LBftiPR  -I..S1SR  I.I.SiLBZiSR  1.5,2lPR  .5..S|LB.|PR  .5..61LBF)" 

7604  END  IF 

7600  END  IF 

7612  IF  Idl-0  THEN 

7616  PRINT  "SR  1.5,2|PU  PR  50. -16  CP"l-LEN(Xl«b«10>/2i"0iLB"iXI»b*I0l"" 

7620  PRINT  "PR  -14,50  CP  0."|-LEN< YI«b*10>/2«5/6i"DI  0, I |LB"| Ylabalti"" 

7624  PRINT  "CP  0,0  01" 

7628  END  IF 
7632  Ipn-0 
7636  X11-1.E46 
7640  Xul— 1.E«6 
7644  Icn-0 
7648  Ifn-0 
7652  Ilelfi-I 
7666  BEEP 

7660  ItrUT  -lIRNT  TO  PLOT  ORTR  FRON  R  FILE  <  I-Y.0-N)T"  .Ok 
7664  IF  Ok-I  THEN 
7668  BEEP 

7672  IirUT  "ENTER  THE  NRRE  OF  THE  ORTR  FILE".O_»tl*0 
7676  RSSI6N  0FiU  TO  0  TlUO 
7600  BEEP 
7684  BEEP 

7608  IirUT  "ENTER  THE  BE6INNINB  RUN  NUMBER", Nd 
7692  BEEP 

7686  IWnn  "ENTER  THE  NUMBER  OF  X-Y  PRIRS  STOREO*  .Npalrs 
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77001 

7704! 

7708 

7712 

7716 

7720 

7724 

7728 

7732 

7736 

7740 

7744 

7748 

7752 

7756 

7760 

7764 

7768 

7772 

7776 

7700 

7784 

7788 

7782 

7796 

7800 

7804 

7808 

7812 

7816 

7820 

7824 

7828 

7832 

7836 

7840 

7844 

7848 

7862 

7866 

7860 

7864 

7868 

7872 

7876 

7800 

7884 

7888 

7892 

7896 

7900 

7904 

7908 

7912 

7916 

7920 

7924 

7928 

7932 

7936 


BEEP 

INPUT  "CONNECT  DATA  UITH  LINE  <  1-V.0“N)7“  .Id 
BEEP 

PRINTER  IS  1 

PRINT  USIN6  "4K,“"S«lect  e  synbol: . 


PRINT  USIN6  "6X.“"1 
PRINT  USING  "BX.“"3 
PRINT  USING  "GX.""5 
PRINT  USING  "6X.""G 
PRINT  USING  "6X."“7 
INPUT  Syn 
PRINTER  IS  705 
PRINT  -PU  01" 

IF  Syn-l  THEN  PRINT  "SN*" 
IF  SyH-2  THEN  PRINT  “SN-*" 
IF  Syti-3  THEN  PRINT  "SHo" 
IF  Nd>t  THEN 
FOR  I-l  TO  <Nd-1 » 


S-tnr  2  Plu«  ^ign . 

Circle  4  Square""" 

Roabue""" 

Rlght-eide-up  triangle"" 
Up-slde-doun  triangle""" 


ENTER  BFiletVa.Xa 
NEXT  1 
END  IF 

FOR  I>t  TO  Npalre 
ENTER  BFiletVa.Xa 
IF  !•!  THEN  Ql-Ya 
IF  I-%ialrs  THEN  02>Ya 
IF  Opo«l  THEN  Ya*Va/Xa 
IF  Ope-2  THEN 
Q«Ya 


Ya«Ya/Xa 


Xa-0 
END  IF 

IF  Xa<Xll  THEN  XlI«Xa 
IF  Xa>Xul  THEN  Xul-Xa 
IF  Iun>l  THEN 
IF  Opo<2  THEN  Xa-Xa*l.6 
IF  Opa>0  THEN  Ya-Ya».l7Gl 
IF  Opo-0  THEN  Ya*Ya<.3l7 
IF  Opo-2  THEN  Xa«Ka*.3l7 
END  IF 

X-L6T(Xa/Kalnl»ST« 

V-L6T<Va/Yaln)«Sfy 

Kl-0 

CALL  5yab(X.y,Sya.Id.RI> 

GOTO  7924 

IF  Syi«>3  THEN  PRINT  "SN* 

IF  8y*»<4  THEN  PRINT  "SR  1. 4.1.4* 

IF  lel«0  THEN 
PRINT  -PA-.X.Y.” 

ELSE 

PRINT  "PA",X.Y.-PO" 

END  IF 

IF  9y»i>3  THEN  PRINT  "SR  1. 2.1.6" 

IF  Sya-4  THEN  PRINT  ’UC2 .4. 9S.0.-8. -4.0.0.8.4.01 
IF  SyvcS  THEN  PRINT  "UC3.0.99. -3.-6. -3.6. 3.6.3. - 
IF  Syn-6  THEN  PRINT  "OC0.5.3.99.3.-8.-S.0.3.8i" 
IF  Sya-7  THEN  PRINT  "000.-5.3.99. -3.8. 6.0.-3.-8i 
NEXT  I 
PRINT  "PIT 
BEEP 

INPUT  "ORNT  TO  LRBELT  1 1-Y,0^»".lla6 
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7940  IF  I lab- I  THEN 
7944  PRINT  “SPeiSPZ" 

7948  BEEP 

79SZ  IF  KlBb-0  THEN 
7956  Xlab-B 
7960  Ylab-85 

7964  llfUT  "ENTER  INITIRL  X.Y  LOCATIONS" .Xlab.YIab 
7968  Xii-Xlab-5 
7972  YLt-Ylab+8 
7976  PRINT  "SR  1,1.5" 

7980  PRINT  "SM|PR",Xtt,Ytt."LB  X  Haat  File" 

7984  Ytt-Yii-3 

7988  PRINT  “PR" .Xtt ,YXi ."LB  Oil  Flu*  Naae" 

7992  IF  Sya-1  THEN  PRINT  "S«*" 

7996  IF  Sya»2  THEN  PRINT  "SH+" 

8000  IF  Sya-3  THEN  PRINT  "SHo" 

8004  Klab-I 
8008  END  IF 
8012  K]-l 

8016  CALL  Synb<Xlab.Ylab,Sya.lcl.Kj> 

8020  PRINT  "SR  I , I. Si SM" 

8024  IF  Syn<4  THEN  PRINT  "PR  2,0" 

8028  BEEP 

8032  INPUT  "ENTER  BOP", Bop 

8036  IF  Bop<l0  THEN  PRINT  "PR  2 ,OiLB~iBopt "" 

8040  IF  Bop>9  THEN  PRINT  "PR  .5,0iLB"lBopi"" 

8044  IHf«0 

8048  IF  01 >02  THEN  Ihf-1 

8052  IF  Ihf-0  THEN  PRINT  "PR  4,0iLBInc" 

8056  IF  IhF-l  THEN  PRINT  "PR  4,0iLBOec" 

8060  PRINT  "PR  2.0iLB"iD_fll#0«"“ 

8064  PRINT  "SPOiSPliSR  1.5,2" 

8068  Ylab-Ylab-S 
8072  END  IF 
8076  BEEP 

8080  ASSI6N  tFlle  TO  • 

8084  Xll-xn/1.2 
8088  Xul-Xul*I.Z 
8092!  60T0  8040 
8096  END  IF 
8100  PRINT  "PU  SH" 

8104  BEEP 

8108  IWUT  "UANT  TO  PLOT  A  POLYNOMIAL  <  l-V,0-N)T"  ,6o_on 

8112  IF  6o_en-1  THEN 

8116  BEEP 

8120  PRINTER  IS  I 

8124  PRINT  USIN6  "4X,""Salacrt  Una  typo:""" 

8128  PRINT  USING  "6X,”"0  Solid  lino"*" 

8132  PRINT  USINB  "BX.”"1  Oaahod"** 

8136  PRINT  USINB  "6X."*2...5  Longer  lino  -  daoh'"* 

8140  IIPUT  Ipn 
8144  PRINTER  IS  70S 
8148  BEEP 

8152  ItPUT  "SELECT  (0-LIN.I-LOe(X.V)>",IloB 

8166  Iprnt-t 

8160  CALL  Poly 

8164  IF  Ifn-0  THEN 

8168  BEEP 

8172  INPUT  "ENTER  NUMBER  OF  FILES  TO  J0IN7".Njeln 
8176  END  IF 
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818®  Iioin«@ 

8184  IF  Itn<N}Oin  THEN  Ijoln'1 
8188  IF  IFn-e  08  Ijoin-I  THEN 
8192  FOR  I]-a  TO  3 
8196  Bsdj  >*Bs<  I  j  )«B<  Ij  ) 

BZee  NEXT  Ij 

8284  Ifn>Ifn4l 

8288  END  IF 

8212  IF  Njoln-IFn  THEN 

8216  FOR  I]-8  TO  3 

8228  BdJ  )-B«(I]  WNIoin 

8224  Bs(lI)-8 

8228  NEXT  Ij 

8232  IFn-8 

8236  ELSE 

8248  GOTO  7656 

8244  END  IF 

8248  BEEP 

8252  IWUT  “ENTER  V  LOUER  RNO  UPPER  LIHITS” . Y1 1 . Yul 

8256  FOR  X«*8  TO  Cx  STEP  Cx/288 

8268  Xa'Xnln* l8“Xx 

8264  IF  Xa<Xn  OR  Xa>Xul  THEN  8372 

8268  Icn«lcn4| 

8272  Pu-8 

8276  IF  lpn-1  THEN  Idf-Icn  HOO  2 
8288  IF  lp»>-2  THEN  Idf-Icn  HOO  4 
8284  IF  Ipn«3  THEN  Idf’Icn  HOO  8 
8288  IF  Ipn-4  THEN  Idf«Ien  HOO  16 
8292  IF  Ipn«S  THEN  Idf-Ien  HOO  28 
8296  IF  IdF'l  then  Pu-1 
8388  IF  0po«8  TFCN  Ya-FNPoly<Xa) 

8384  IF  Opo*2  HNO  Ileo-8  THEN  Ya'Xa/FNPolyl Xa> 

8388  IF  Opo«2  AND  IIog’1  THEN  Ya>FNPoly< Xa) 

8312  IF  Opo>1  THEN  Ya-FNPoly<Xa) 

8318  IF  Ya<Ynin  THEN  8372 
8328  IF  Ya<Yn  OR  Ya>Yul  THEN  8372 
8324  IF  Iun-1  THEN 
8328  IF  Opo<Z  THEN  Xa«Xa>1.e 
8332  IF  0po>8  THEN  Ya-Ya*.t76l 
8336  IF  Ope-8  THEN  Ya-Ya<.317 
8348  IF  Opo«2  THEN  Xa>Xa>.3l7 
8344  END  IF 

8348  Y«L6T(Ya/Yaln)*Sfy 

8352  X»L6T<Xa/Xnin>«Sfx 

8356  IF  Y<8  THEN  Y-8 

8368  IF  Y>I88  THEN  GOTO  8372 

8364  IF  Pu-8  THEN  PRINT  "PH" .X.V,*PO" 

8368  IF  Pu-I  THEN  PRINT  "PH" .K.Y,"PU" 

8372  NEXT  Xx 
8376  PRINT  "PU" 

8388  GOTO  7656 
8384  END  IF 
8388  BEEP 

8392  II8Vr  "WANT  TO  PLOT  REILLY’S  OATH?  <  I-Y.8-N)" .Irly 

8396  IF  Opo-8  OR  Opo-I  THEN 

8488  Xn-3 

8484  KuI-28 

8488  END  IF 

8412  IF  Ope-2  THEN 

8416  XIl-18888 
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84ze  xui>i«0eee 

8424  END  IF 

8428  IF  iPlyl  THEN 

8432  Vll'Ze 

8436  Yul*7e 

8448  BEEP 

8444  INPUT  “ENTER  LOWER  RNO  UPPER  Y-LIRITS  FOR  PL0TTIN6“ .Yll ,YuI 

8448  FOR  TO  Cx  STEP  C«/200 

8452  Xa*Xnln«ie*Xx 

8456  IF  Xa<XU  OR  Xa>XuI  THEN  8508 

8460  Xl«L06(Xa) 

8464  IF  Opo-0  THEN  YI— 2.5402837E't'»Xl>(4.972015l-XI*2.5l34787E- I ) 

8468  IF  Opo-I  then  Y1— 2.5402837E't'»Xl*<  3.9720I5I-X1*2.5I347B7E- I ) 

8472  IF  Opo«z  THEN  Yl— 3.70738O1E' 1 4X1  •(  B.7259l9eE' l'Xl*6.8826842E-3> 

8476  Ya-EXP<  Y1 1 

8480  Y«L6T(Ya/Ynln)4SFy 

8484  X-L6T(Xa/Xnln>*srK 

8488  Ipu-0 

8492  IF  Y<Y11  THEN  Ipu-1 

8496  IF  Y>Yul  THEN  GOTO  8508 

8SO0  IF  lpu«0  THEN  print  "PR” , X. Y.“PD" 

8504  IF  IpM-1  THEN  PRINT  'P«“ .X. Y.“PO" 

8508  NEXT  Xx 
8512  PRINT  “PU” 

8516  END  IF 
8520  BEEP 

8624  IiruT  “WANT  TO  PLOT  ROHSENOU  CORRELATION?  ( l•Y.0-N>" .Irohe 

8528  IF  Iroha-I  THEN 

6532  Y11«IS 

6536  Yul-80 

8540  BEEP 

8544  INPUT  “ENTER  Umi  <Oas  Cr.TaaT 
8548  Caf>.0040 
8552  BEEP 

8556  INPUT  “ENTER  Caf  <OEF-0.004)“,Ctf 
8560  Tf«T«a44Z 

8564  FOR  Xx>0  TO  Cx  STEP  Cx/200 
8568  Xa*Xaln«t0*Xx 
8572  IF  Ka<Xll  OR  Ka>Kul  THEN  8684 
8576  Xl*L06(Xa) 

8580  IF  Opo<2  THEN  Tf>TaaY4Na/2 
8584  Rho«FNRho( Tf  > 

8588  K-FNK(Tf> 

8592  Nu>FNNu(Tf> 

8596  Cp-FNCpaf) 

8680  HTff>F'*Hf  a<  Taat ) 

8604  Ni«Hu/Rho 
8608  Pr<p*Hu/K 

8612  0(iaga-CaF*Hfo/Cp«(  <.014/(9.  aMRhoD'.S/IfhixHfgD'd./SI^Pr*  1.7 

•616  IF  Opo«0  THEN  ra-(Xa/0Pwoa)‘3 

8620  IF  Ope-I  THEN  Ya>< Xa/Onagal'S/Xa 

•624  IF  Opo-Z  THEN  Ya-Xa*( 2./3)/OMga 

8828  IF  Op«-2  THEN 

•632  Tfe>Taa44Xa/Ya«.S 

8636  IF  RBS(Tf-Tfc».01  THEN 

8640  TF-<Tf4Tfe>».5 

8644  eOTO  8584 

•648  END  IF 

•652  END  IF 

•656  Y>L6T<Ya/Yain)«Sfy 
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4. 


8660  X•L6T(Xa/Xllln)•Sfx 
:«B64  Ipu-e 

8668  IF  Y<Y11  THEN  Ipu>1 

8672  IF  Y>Yul  THEN  8684 

8676  IF  Ipu«e  THEN  PRINT  "PR" .X.Y.'PO" 

8688  IF  Ipu-I  THEN  PRINT  "PR” .X.Y.-PU" 

8684  NEXT  Xx 
8688  PRINT  "PU" 

8682  END  IF 

8696  BEEP 

8708  INPUT  "URNT  TO  QUIT  < 1-Y.8-N)” . Iqi 

8784  IF  Iqt«t  THEN  8712 

8788  GOTO  7636 

8712  PRINT  -PU  PR  8,8  SP8'' 

8716  SUBENO 

8728  SUB  Synb<X,Y,Syn,Icl.Kl ) 

8724  IF  Syf<>3  THEN  PRINT  'SH” 

8728  IF  Sy«<4  THEN  PRINT  “SR  t.4,2.4“ 

8732  Yad*8 

8736  IF  Kj-I  THEN  Yad«.8 

8740  IF  I el >8  THEN 

8744  PRINT  *PR“,X.Y+Yad."* 

8748  ELSE 

8752  PRINT  “PR".X,Y4Y«d.*P0“ 

8756  END  IF 

8768  IF  Syn>3  THEN  PRINT  “SR  1.2, 1.6“ 

8764  IF  Syn>4  THEN  PRINT  “UC2 ,4. 99,8, -8. •4,8,8, 8.4.81“ 

8768  IF  Sy«-S  THEN  PRINT  ”UC3.8,99 .-3,-S.-3.6.3.6.3.-Bi“ 
8772  IF  Sy(i*6  THEN  PRINT  "UC8.5,3.99.3.-8.-B.8.3.8i“ 

8776  IF  Sy»f7  THEN  PRINT  "UC8,-S.3.99.-3.8.6.8.-3.-8i" 

8788  IF  KJ-I  THEN  PRINT  "SHiPR  8.-.8" 

8784  SUBEND 
8788  SUB  Pure 

8792  BEEP 

8796  INPUT  “ENTER  FILE  NRNE  TO  BE  OELETECT  .Fll«8 

8888  PURGE  Ftlaf 

8884  GOTO  8792 

8888  SUBENO 

8812  SUB  Tdcn 

8816  CON  /Cc/  C(7>,Ical 

8828  DIM  Enf < I ) 

8824  ORTR  8. I 888089 1 . 25727 . 94369 . -7S734S. 8295.78825595.81 
8828  DRTR  -9247486589. 6. 97688E'»1 1  .-2. 66IS2E'»13.3.94878E-»14 
8832  REROCO) 

8836  BEEP 

8848  IIFUT  “eiVE  R  NRHE  FOR  FILE  TO  BE  CRERTED“.Flle8 
8844  BEEP 

8848  IirUT  “SELECT  TUBE  (•>UH,1-HF.2-UT)“.I44 
8852  BEEP 

B856  IW>UT  “SELECT  THERHOCOUPLE  TYPE  (8-NEH. I•0LD>“ .leal 

8868  IF  It4<Z  THEN  D1-.8127 

8864  CRERTE  BORT  Flle8.4 

8868  RSSISN  OFlla  TO  FllaS 

8872  OUTPUT  BFlIaiItt 

8876  J-8 

8888  BEEP 

8884  OUTPUT  789i“TIHE0RTE“ 

8688  ENTER  TBSiDt 
8988  PRINTER  IS  1 
8984  PRINT 
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8908 

PRINT 

Honih, 

daie 

and 

tine:  'iOATE4<Dt),TIHE0<Dt) 

8912 

PRINT 

8916 

PRINT  USING  "lOX, 

"  Fne 

Tin 

Tev  Vu‘2  Tdrop'" 

8920 

IF  K-0  THEN 

8924 

PRINTER  IS  701 

8928 

PRINT 

8932 

PRINT  " 

Honih, 

date 

and 

tine:  'iDATE4(Dt )  .TIHEXDt ) 

B93E  IF  ItfB  THEN  PRINT  USING  *‘ieX.‘‘~Tuba  Type 

8940  IF  lii-l  THEN  PRINT  USIN6  " ieX.‘‘''Tube  Type 

8944  IF  Iit-2  THEN  PRINT  USING  “ ieX.“‘-Tube  Type 

8948  PRINT 

89SZ  PRINT  USING  ‘'leX.'"'  Fns  Tin  Tav 
B9S6  PRINTER  IS  I 
8960  K-l 
8964  END  IF 
8968  BEEP 

8972  INPUT  'ENTER  FLOUNETER  READING' .Fne 
8976  OUTPUT  709|'AR  AF0  AL4  VRI" 

8980  FOR  L-0  TO  4 
8984  OUTPUT  709 1 'AS  SA* 

8988  IF  L>0  AND  L<4  THEN  9020 
8992  S-0 
8996  FOR  1-0  TO  9 
9000  ENTER  709 lE 
9004  S>S4E 
9008  NEXT  I 

9012  IF  L>0  THEN  EnF(0)>ABS<S/l0) 

9016  IF  L-4  THEN  Enf( I >>ABS(S/t0) 

9020  NEXT  L 

9024  OUTPUT  709i'AR  AF20  HL20  VRI' 

9028  OUTPUT  709t'AS  SA" 

9032  Etp-0 
9036  FOR  I«0  TO  9 
9040  ENTER  709iEt 
9044  Etp-E«p4E4 
9048  NEXT  I 
9052  E4p-E4p/I0 
9056  Tln-FNTvavlEnfl  I > ) 

9050  Tev>FNTvav<Epif(0)) 

9064  er«9>37.9BS3*.l04388*Tln 
9068  Wo4-3.96S7E-34FM«3.6t95SE-3-Ffwe<0.8Z006E-6-Fiia*(1.Z368SE-7-Fm*4.31S97 
E-I0))) 

9072  Vw-Ndot/I l000*PI«Oi*Z)*4 
9076  Tdrap-Etp*I.E-»6/<  I0*6rad> 

9000  mm  USING  *I0X.3(K).OD.4X).1X.Z.OO.4X.nZ.4D'iFM.Tln,Tav,Vu‘Z.Tdrop 

9004  BEEP 

9080  tIPUT  'WANT  TO  ACCEPT  THIS  DATA  SET?  < 

9092  J-J41 
9086  IF  Ok-0  THEN 
9(00  J>J'I 

9104  BOTO  09I8 
9100  ELK 

9(12  OUTPUT  KilaiFm.EnTlel.Etp 
9116  mNTER  IS  701 

91Z0  mNT  USING  '(0X,3(OO.OO,4X>.1X.Z.(X).4X.HZ.4O'iFM,Tln.Tav.Vw‘Z.Tdrap 
9(Z4  mNTER  IS  1 

9(Z0  KEP 

9(32  IIPUT  'MILL  THERE  K  ANOTHER  ORTA  KT7  <  (•y.0-N)’.6e  on 
9(36  IF  8e_0P-(  TICN  8980 
9140  END  IF 


Uialand  Snooib" 
High  Flux'" 
Turbo*  B“" 

Vm*2  Tdrop'" 
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9t44  ASSIGN  tFlle  TO  • 

9148  PRINTER  IS  701 
9152  PRINT 

9156  PRINT  OSIN6  ••16X.““N0TE!  ““.Z2.“”  data  aats  aro  storad  In  flla  .  ISA”  i  J  .F 
tlaS 

9iee  PRINTER  IS  I 
9164  SUBENO 
9169  SUB  Uoprt 
9172  PRINTER  IS  1 
9176  BEEP 

9186  INPUT  *Eniar  Uo  Flla  Nana'',Fila« 

9194  BEEP 

9188  INPUT  "Nuafaar  of  Data  Runa'.Nrun 

9192  INPUT  "Do  You  Uani  a  Plot  Flla7(  1-Y,6-N)-‘.Iplot 

9196  BEEP 

9266  IF  Iplol>1  THEN 

9264  ItPUT  “Glva  Plot  Flla  Nana" .P.FtlaS 

9268  CREATE  BOAT  P_rila«.4 

9212  ASSIGN  GPlot  TO  P.fllai 

9216  END  IF 

9226  PRINTER  IS  761 

9224  PRINT 

9228  PRINT 

9232  PRINT  USING  “I6X.""  Uatar  Val  Uo”"" 

9236  ASSIGN  fFlla  TO  Fllat 

9246  IF  lplot«1  THEN  ASSIGN  iFilal  TO  P.Fllat 

9244  FOR  !■!  TO  Nrun 

9248  ENTER  •FllaiVu.Ue 

9252  IF  Iploi>t  THEN  OUTPUT  9FllafiVu,Uo 

9256  PRINT  USING  *tSX.0.00.6X.HZ.30E*iVu.Uo 

9266  NEXT  I 

9264  ASSIGN  fFlla  TO  • 

9268  ASSIGN  iFllat  TO  « 

9272  PRINT  USING  "l6X."*N0TEi  ”".22."”  dsia  aats  ara  storad  in  flla  "".ISA-iNru 
n. Fllat 

9276  IF  Iplot«l  THEN 

9266  PRINT  USING  "t6X.""N0TE:  "".22."*  X-Y  Palra  wa  atorad  In  flla  "".l5A"|Nru 

n.P.fllat 

9264  END  IF 

9266  PRINTER  IS  I 

9292  9UBEN0 

9296  SUB  Salact 

9366  CON  /Idp/  Idp 

9364  BEEP 

9366  PRINTER  IS  I 

9312  PRINT  USING  "4X. ""Salact  option:’"" 

9316  PRINT  USING  "6X.""  6  Taking  data  or  ro-procasalng  provloua  data’"” 

9326  PRINT  USING  "6X."’  I  Plotting  data  on  Leg-Log  ""’ 

9324  PRINT  USING  "6X.""  2  Plotting  data  on  Llnoar*"" 

9329  PRINT  USING  "6X.""  3  Nafco  eroaa-plot  eoofft  flla""’ 

9332  PRINT  USING  ’6X.”  4  Ro-elreulato  Mator""" 

9336  PRINT  USING  *BX.”  S  Piirgo’” 

9346  PRINT  USING  "6X.”  6  T-Orop  corroetion""" 

9344  PRINT  USIN8  "BX.”  7  Print  Uo  Flla""" 

9345  PRINT  USING  "BX,”  6  Hedlfy  X-Y  flla""" 

6346  PRINT  USING  "BX.”  9  Nova”" 

9347  PRINT  USING  ’BX,""I6  Co«*/Fliup""" 

9346  INPUT  Idp 

9352  IF  Idp-6  THEN  CALL  Naln 
B36B  IF  Idp-t  THEN  CALL  Plot 
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83Be  IF  Idp-Z  THEN  CULL  PI In 
8364  IF  Idp>3  THEN  CftLL  Coaf 
8368  IF  Idp-4  THEN  CULL  Main 
8372  IF  Idp-S  THEN  CW.L  Purg 
3376  IF  Idp*6  THEN  CPLL  Tdcn 
838«  IF  Iclp-7  THEN  CW.L  UoprI 

8381  IF  Iclp-8  THEN  CALL  Xynod 

8382  IF  Idp-S  THEN  CALL  Nova 
9383  IF  I(%i-I6  THEN  CALL  Confa 
9385  SUBENO 

9394  SUB  Xynod 
9434  PRINTER  IS  I 
9444  BEEP 

9454  IirUT  "ENTER  FILE  NAHE".Flla« 

9464  ASSIGN  BFilal  TO  Flla* 

9474  BEEP 

9484  INPUT  -ENTER  NUHBER  OF  X-V  PAIRS"  .INi 
9494  BEEP 

9564  INPUT  -ENTER  NEU  FILE  NANE-.Fila26 
9514  CREATE  BOAT  FllaZi.S 
9524  ASSI6N  8Fila2  TO  FllaZt 
9534  BEEP 

9544  INPUT  -ENTER  NUMBER  OF  X-V  PAIRS  TO  BE  OELETEO" .Ndal 
9554  IF  Ndal-6  THEN  9594 
9564  FOR  1-1  TO  Ndal 
9574  BEEP 

9564  IIPUT  -ENTER  DATA  SET  NUMBER  TO  BE  DELETED"  ,Nd(  I  > 

9594  NEXT  I 

9B64  FOR  J-t  TO  INi 

9614  ENTEA  BFilal iX.Y 

9624  FOR  1-1  TO  Ndal 

9634  IF  Nd< I )-J  THEN  9674 

9644  NEXT  I 

9654  OUTPUT  BFllaZiX.V 

9664  PRINT  J.K.V 

9674  NEXT  J 

9675  PRINTER  IS  761 
9664  ASSI6N  BFilal  TO  • 

9694  ASS16N  6Fila2  TO  • 

9764  SUBENO 

9714  SUB  Nova 


97181  FILE  NAME:  HOVE 
97221 

66)®m<£)  3(661, X<B6).L< 


9736  DIM  Told<66).N<B6).Vr(66I.Ir<66> 

9734  BEEP 

9736  IirOT  -OLO  FILE  TO  HOVE*,OZ  ftloB 
9742  ASSI6N  6FiIa2  TO  K.filoB  ” 

9746  ENTER  6FtIo2iNrun,Ot,L6tct,Lrttc2,m 

9756  FOR  I-l  TO  Nrun 

9754  ENTER  BFlUZiBopdl.Tolddl 

97M  ENTER  iRI I > .B< I ) .C(H.O< I ),E<  1».F( I),B(I >.H( I > .J( I >,X( I ) ,L(I > .M( I ) .N 

9762  ENTER  6Filo2iVr<I>,Ir(n 
9766  NEXT  I 

9776  RSSIBN  6FiIo2  TO  • 

9774  BEEP 

9^  IirUT  -SHIFT  DISK  AND  HIT  CONTINUE" .Ok 
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3786  INPUT  'INPUT  BOAT  SIZE'.Siia 
3738  CISATE  BOAT  OZ_f llaB.Slx* 

3734  ASSI6N  BFllal  TO  OZ.Tlla* 

3738  OUTPUT  BFllal iNrun.Ot .Ldtcl .LdicZ.Itt 

see?  FOR  1*1  TO  Nrun 

3BB6  OUTPUT  BFllal iBep( I ) .Told< I > 

38IB  OUTPUT  BFllal  I  A(  I )  .B(  I )  .C(  1 )  .0(  1  >  .E(  I  >  ,F(  I  >  .6(  I )  .H(  1  > .  J<  I )  .K(  I )  ,L(  I  >  ,n<  I ) . 
N<  I ) 

3814  OUTPUT  BFllal  iVrdl.Ird) 

3818  NEXT  1 

9822  ASSI6N  BFllal  TO  • 

38261  RENAME  'TEST'  TO  OZ.Fllat 

383B  BEEP  ZBBB..Z 

3834  BEEP  4BBB..Z 

9838  BEEP  4BBB..2 

9642  PRINT  *OATA  FILE  MOVED" 

9846  SUBENO 
9874  SUB  Conb 
98781  FILE  NAME:  COMB 
98821 

9886  DIM  EirfdZI 
989B  BEEP 

9894  IIPUT  'OLD  FILE  TO  FIXUP' .D2_Flla8 
9898  ASSI6N  BFllal  TO  (B.fllaB 
99B2  0l_flla8-'TEST' 

99B6  ^ATE  BOAT  Dl.FllaB.ZB 
99IB  ASS16N  BFllal  TO  OI.FllaB 

9914  ENTER  BFlIaZtNrun.Ot.Ldtcl.LCKeZ, Hi 

9915  Nrunn-2B 

9918  IF  K-B  THEN  OUTPUT  BFllaliNrufm.Ot.Ldtel .LdieZ.Iii 

9922  FOR  !•!  TO  Nrun 

9926  ENTER  BFlla2iBep.Tald.E«f<*>.Vr,Ir 

993B  OUTPUT  BFllal  160(1, Teld.EnFO )  .Vr.lr 

9934  NEXT  I 

9938  ASSIBN  BFllaE  TO  • 

99421  RENAME  'TEST'  TO  OE.FllaB 
9946  BEEP  2BBB..2 
99SB  BEEP  4BBB..2 
9954  BEEP  4BBB..2 
9958  BEEP 

9962  IIPUT  'HANT  TO  ROD  ANOTHER  FILE  d•V.^)T'. Oka 
9966  IF  Oka* I  THEN 
9978  K*l 
9974  BEEP 

9978  INPUT  ’6IVE  NEW  FILE  NAHE'.NfllaB 
9982  ASSIBN  6Flla2  TO  NFllaB 
9986  eOTO  9914 
B99B  END  IF 

8994  ASS16N  flFllo2  TO  • 

9998  SUBENO 
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